
Calhoun 

iniQiuiic^iul Ar{hiv« of tilt Mil vdl Poii^roduiit School 


Calhoun: The NPS Institutional Archive 
□Space Repository 



Theses and Dissertations 


1. Thesis and Dissertation Collection, all items 


1991-09 

A users manual for the Naval Postgraduate 
School aircraft synthesis program 


Parker, John T. 

Monterey, California. Naval Postgraduate School 


http://hdl.handle.net/10945/43749 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 

Downloaded from NPS Archive: Calhoun 



DUDLEY 

KNOX 

LIBRARY 


htt p://w ww. n ps. e du/l ib ra ry 


Callwuo is the Naval Postgraduate School's public access digital repository for 
research mate rials and institutiional publicatkins created by the NPS community. 
Calhoun is named for Professor of Mathematics Guy K. Caftiouo, NPS's first 
appointed — and published — schoteily author. 

Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 Univefsity Circle 
Monterey, California USA 93943 






. I . 


NAVAL POSTGRADUATE SCHOOL 

Monterey, California 



THESIS 



Approved for public release; distribution is unlimited 




92-03447 






UNCLASSIFIED 

SECURITY CLASSIFICATION OF THIS PAGE 


REPORT DOCUMENTATION PAGE 


la. REPORT SECURITY CLASSIFICATION 
UNCLASSIFIED 


1b RESTRiaiVE MARKINGS 


NONE 


2a. SECURITY CLASSIFICATION AUTHORITY 


2b. DECLASSIFICATtON/DOWNGRADING SCHEDULE 


3. OISTRIBUTION/AVAILABILITY OF REPORT 
Approved for public release; distribution is unlimited. 


4. PERFORMING ORGANIZATION REPORT NUMBER(S) 


5 MONITORING ORGANIZATION REPORT NUMBER(S) 


6a. NAME OF PERFORMING ORGANIZATION 6b. OFFICE SYMBOL 7a. NAME OF MONITORING ORGANIZATION 
Naval Postgraduate School (If applicable) Naval Postgraduate School 

__ 31 _ 

6c ADDRESS (City, State, and ZIP Code) 7b ADDRESS (City, State, and ZIP Code) 

Monterey, CA 93943-5000 Monterey, CA 93943-5000 


Sa. NAME OF FUNDING/SPONSORING 8b. OFFICE SYMBOL 9 PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 

ORGANIZATION (If applicable) 

8c ADDRESS (City, State, and ZIP Code) 10. SOURCE OF FUNDING NUMBERS 

Program Element NO Project No Task No. Work Unit Acceswoo 

Nufv^jer 

11. TITLE (include Security Oassification) 

A USER'S MANUAL FOR THE NAVAL POSTGRADUATE SCHOOL AIRCRAFT SYNTHESIS PROGRAM 
12 PERSONAL AUTHOR(S) Parker, John T. 

13a TYPE OF REPORT 13b TIME COVERED 14. DATE OF REPORT (year, month, day) 115. PAGE COUNT 

Maater’gTheais _ From _To_ September 1991 _301_ 

16 SUPPLEMENTARY NOTATION 

The views expressed in this thesis are those of the author and do not reflect the official policy or position of the Department of Defense or the U.S. 
Government. 

17 COSATI CODES 18. SUBJECT TERMS (continue on reverse if necessary and identify by block number) 

FIELD I GROUP I SUBGROUP Aircraft Synthesis, ACSYNT, Aircraft Design 


19. ABSTRACT (continue on reverse if isecessary and identify by block number) 

A menu driven computer program has been developed to serve as a user’s interface with ACSYNT, the NASA-AMES program for aircraft 
synthesis. The interface program, CREATE, drastically reduces the amount of time required to learn how to use acsy nt, thi<s allowing the power 
of ACSYNT to be used more effectively by the Aircraft Design curriculum at the Naval Postgraduate School. 

CREATE has been developed to reduce the required number of inputs to ACSYNT and is ideal for use with the early phases of the Aeronautical 
Engineering Curriculum. It can provide rapid feedback when examining the eftects that different aircraft parameters have on the overall aircraft 
performance, thus enhancing the students understanding of the relationships between the numerous variables of aircraft studies. 

Included in the thesis are four examples that demonstrate some of the capabilities of ACSYNT and the use of CREATE. 


20 DISTRIBUTION/AVAILABILITY OF ABSTRACT 

B UNCLASfifltO/UNllMlUD B Q UIICUStRS 

21 ABSTRACT SECURITY CLASSIFICATION 

UNCLASSIFIED 

22a NAME OF RESPONSIBLE INDIVIDUAL 

C.F. Newberry 

22b TELEPHONE (Include Area code) 
(408)646-2491 

22c OFFICE SYMBOL 
31 


DO FORM 1473,84 MAR 83 APR edition may be used unUl exhausted SECURITY CLASSIFICATION OF THIS PAGE 

All other editions are obsolete (J NCLASSl FIE D 


1 










































Approved for public rdease; distribution is unlimited. 


A Users Manual for the 
Naval Postgraduate School 
Aircraft Synthesis Program 

by 

John T. Parker HI 
Lieutenant, United States Navy 
B.S., University of Maryland 

Submitted in partial fulfillment 
of the requirements for the degree of 

MASTER OF SCIENCE IN AERONAUTICAL ENGINEERING 

from the 

NAVAL POSTGRADUATE SCHOOL 

Author: 

Approved by: 


Department of Aeronautics and Astronautics 



4 


t 


r 


ii 






ABSTRACT 


A menu-driven computer program has been developed to serve as a users 
interface with ACSYNT, the NASA-AMES program for aircraft synthesis. The 
interface program, CREATE, drastically reduces the amount of time required 
to learn how to use ACSYNT, thus allowing the power of ACSYNT to be vised 
more effectively by the Aircraft Design curriculum at the Naval Postgraduate 
School. 

CREATE has been developed to reduce the reqviired number of inputs to 
ACSYNT and is ideal for use with the early phases of the Aeronautical 
Engineering Curriculum. It can provide rapid feedback when examining the 
effects that different aircraft parameters have on the overall aircraft 
performance, thus enhancing the students understanding of the relationships 
between the nvunerous variables of aircraft studies. 

included in the thesis are fovir examples that demonstrate some of the 
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L INTRODUCTION 


A. THESIS ORIENTATION 

This thesis is designed to serve as a users manual for use with the Naval 
Postgraduate School Aircraft Synthesis Program (NPSASP). NPSASP consists 
of two parts: ACSYNT and CREATE. ACSYNT (^rcraft Synthesis) is briefly 
described in section (B) below. CREATE was developed for this thesis and is 
described in detail in the following chapters. Additionally, one of the modules 
of ACSYNT, NAVY, was extensively modified and reinstalled at NPS as thesis 
work (Chapter IX). 

The information contained in this thesis is entirely based on the version 
of ACSYNT presently installed on the NPS Aeronautics Department Vax 
Computer System. Different versions of ACSYNT may or may not be 
compatible with CREATE. 

Included in this thesis are four detailed examples to be used with 
CREATE. They provide the iiser with specific guidance on the development of 
an aircraft data file and interpretation of the results. 

B. ACSYNT OVERVIEW 

ACSYNT was first developed at the NASA-AMES Research Center during 
the early 1970’s to aid in the conceptual design process of advanced aircraft. 
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The aircraft type may be transport, bomber or fighter configurations and the 
size of the aircraft is normally not a factor. Small, unmanned air vehicles 
(Example 4) as well as transports the size of the C-5 may be evaluated with 
ACSYNT. Studies have shown that with proper inputs, ACSYNT results 
match, to within ten percent, the characteristics of existing aircraft [Ref 1]. 
Many commercial aircraft companies as weU as numerous educational 
institutions use ACSYNT for aircraft design studies. 

The Naval Postgraduate School (NI^) played a role in the early 
evaluation and use of ACSYNT. The application of ACSYNT to VSTOL 
aircraft was investigated by O’Donnell in 1978 [Ref 1] and the first manual for 
ACSYNT was written as thesis work by Arnold B. Bruflat [Ref 2] in 1977. 
The Navy module of ACSYNT was developed at NPS by M. D. Barrett for use 
iu the study of a carrier based, high energy laser equipped aircraft. 

Over the years, ACSYNT has evolved as additional capabilities were 
added and obsolete routines were updated. The modular design of ACSYNT 
makes it possible to update one module without needing to make extensive 
modifications to the other modules. While this slow growth has aided the 
abilities of ACSYNT, it has not made it easier to use. A learning period on the 
order of weeks is required to fully understand and use the program, thus 
putting it effectively out of reach for many students. CREATE was developed 
in an effort to bypass this learning period and bring ACSYNT under control. 
Specific information about ACSYNT can be fo\md in References 2 and 3. 
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C. SUGGESTED READD^G METHOD 


When using this thesis as a users manual, Chapters 1 and 11 should be 
read first to gain an insight into the nature of NPSASP, after which Examples 
1, 2 and 3 should be performed. Chapters III - VIII shoiild be used as reference 
material when establishing a new design or when performing one of the 
Examples. Example 4 provides additional experience with an oblique wing, 
unmanned air vehicle, to demonstrate the lower weight range that ACSYNT 
can handle. 
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n. CREATE OVERVIEW 


A. PROGRAM PHILOSOPHY 

The primaxy goal for CREATE is to assist a novice user to build and edit 
the aircraft data file that is used by ACSYNT to analyze a design. While this 
data file could be produced manually, it is not a simple matter and would act 
as another obstacle for a novice to overcome. A "professional" user of 
ACSYNT may want to b 3 rpas 8 CREATE and build/edit the data file manually, 
as CREATE does not support some of the advanced features of ACSYNT. 

The second goal for CREATE is to minimize the probabihty that a data 
file will be rejected by ACSYNT. CREATE incorporates numerous error¬ 
trapping routines that will help to catch problems before running ACSYNT, 
and additionally insures that many of the undocumented idiosyncracies of 
ACSYNT are satisfied. It should be noted that ACSYNT is still a very 
sensitive program and "crashes" often occur, even for what appears to be a 
valid set of aircraft parameters. Computations internal to ACSYNT are not 
always protected firom common calculation errors, such as dividing by zero. 

CREATE is a "mirror" image of ACSYNT. Each section of CREATE 
(Geometry, Trsyectory, etc...) is directly linked to the corresponding module of 
ACSYNT. The information discussed in the following Chapters applies to both 
ACSYNT and CREATE. 
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B. PROGRAM STRUCTURE 


CREATE has two main paths that it will follow when building or editing 
a data file (see source code listing in Appendix A). The first path is used when 
a new file is created. When this path is initiated, all of the default variables 
are set and internal flags are raised. These flags ensure that the user is 
guided through each of the required or selected modules in the correct 
sequence. The second path is enabled when a previously created file is loaded. 
This allows the user to bypass modules that do not need to be altered, thus 
saving time. The flow chart for CREATE is shown in Figure 1. 

If CREATE senses an error when a variable is input, that value will not 
be accepted. This will occur if the variable is outside of the recommended range 
or it is not of the correct data type (real, integer or logical). An example of this 
is attempting to input a real number when an integer is expected. The 
acceptable range and data type for each variable are given in Chapters 

m-vni. 


C. CAUTIONARY NOTES 

CREATE uses a linear structure, that is it builds the data file as the user 
progresses through the program. If the user breaks out of the program (via 
ctrl-c or other means) the data file will be incomplete and unsuitable for use. 
The entire sequence of CREATE must be completed each and every time the 
program is accessed. 
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If a previously created file is being edited, a back-up file, named 
"TEMP.DAT', is created in the users root directory. This back-up file is an 
identical copy to the original data file. If a power failure or other catastrophe 
should occur while editing the original file, this back-up may be renamed to 
the original and used. 

CREATE and ACSYNT tise the same logical unit numbers for input and 
output (I/O) control. If ACSYNT crashes during a run, the following 
commands should be executed before running CREATE again: 

• DEASSIGN FOR005 

• DEASSIGN FOR006 

• DEASSIGN FOR007 

• DEASSIGN FOROlO 


If these commands are not executed, create will attempt to use the same 
I/O paths that ACSYNT was using, with fatal results. If ACSYNT does not 
crash, these commands are executed automaticaUy upon ACSYNT completion. 
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Establish Analysis 
ttethod 



Figure 1. CREATE Flow Chart 
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HL ANALYSIS METHODS 


A. OVERVIEW 

Three analysis methods are supported by CREATE: Simple Analysis, 
Optimization and Sensitivity. Each method is described in detail below. 
Selection of one of the analysis methods sets the course that ACSYNT will 
follow when evaluating the design. 

B. SIMPLE ANALYSIS 

This should always be the first method used on a new design and 
whenever a variable is changed on an old design. When this method is 
selected, ACSYNT will "fly" the design through the given mission (Chapter V) 
several times. After completing the mission once, ACSYNT updates the 
estimated fuel weight required to fly the mission. This in turn alters the 
estimated gross weight of the aircraft at takeoff (via the weights module). This 
new estimate is then used on the next pass through the mission. When the 
new estimated weight and the weight actually required to fly the mission agree 
within a tolerance of 0.0001, the aircraft is said to be "converged”. To use this 
method, it only needs to be selected via the Anal}rsis Method Menu with 
CREATE. 
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C. OPTIMIZATION ANALYSIS 


ACSYNT will optimize one variable (known as the objective variable) 
given a niunber of design variables (variables that ACSYNT may modify to 
optimize the objective) and constraints. The only requirement for this method 
is that the design variables may not be related to each other (i.e. wing span 
and aspect ratio should not be used together) and the design must have been 
previously converged using Simple Analysis. If the design is not yet converged, 
the Optimization process wiU be started while ACSYNT is attempting to 
converge the design. This will cause erroneous Optimization results. 

An example of this method would be to minimize the aircraft gross weight 
by allowing ACSYNT to resize the wing area (within supplied limits), given a 
constraint on the required turning radius. See Example 3 for further insight 
into this method. 

The variables that may be used with this method are given in Tables 
1-5. The variables are input to the program by using the Global Variable 
Number that is assigned to each variable. It should be noted that not every 
variable used to define a design may be used to optimize the design. Also note 
that the units associated with each variable are not always the same units 
used with the aircraft data file. Topically, performance parameters or gross 
weight are used as the Objective Variable while geometric or performance 
parameters are used as the Design Variables. See Reference 4 for specific 
information on this method. 
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1. Optimization Inputs 


The following information is required for input when ru nning 


CREATE: 


• The Objective Variable and its Global Number. 

• The Design Variable(s) and the Global Nimiber(8). Upper and lower 
bounds must also be provided for each variable. 

• The Constraint Variable(p) and the Global Numbers). Upper and lower 
bounds on the Constraint(s) will also be required. Constraints should 
only be used if they are required. Unnecessary constraints will only 
inhibit the Optimization process. 


D. SENSmvnY ANALYSIS 

This method is useful to examine the effect that certain variables have on 
another variable. For example, the effect that the canard aspect ratio has on 
the txu-ning rate could be examined. This method is used in a manner similar 
to the Optimization Method. The Sensitivity Objective is the variable that will 
be examined (e.g. the turning rate). The Sensitivity Variable is the variable 
that will be altered. Seven different values of the Sensitivity Variable will be 
analyzed by ACSYNT, scaled between upper and lower bounds as provided by 
the user. These values will produce seven different outcomes on the 
Sensitivity Objective (see Example 2). Up to eight sensitivity variables and 
objectives may be selected. 
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1. Sensitivity Inputs 

The following information is required for input with this method: 

* The Sensitivity Objective(s) and the Global Nvunber(s). 

• The Sensitivity Variable(s) and the Global Number(s). Upper and lower 
bounds on each variable must also be provided. 
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TABLE 1. 


Geometry Variables 

Variable 

Global 

Number 

1/4 Chord Sweep, Canard (deg) 

423 

1/4 C!hord Sweep, Horuontal Tail (deg) 

424 

1/4 Chord Sweep, Vertical Tail (deg) 

425 

1/4 Chord Sweep, Wing (deg) 

426 

Aspect Ratio, Canard 

45 

Aspect Ratio, Horizontal Tail 

46 

Aspect Ratio, Vertical Tail 

59 

Aspect Ratio, Wing 

60 

Fuel Fraction in Wing 

211 

Fuselage Afterbody Fineness Ratio 

208 

Fuselage Diameter (maximum) (ft) 

66 

Fuselage Fineness Ratio (overall) 

209 

Fuselage Length (ft) 

69 

Fuselage Nose Fineness Ratio 

210 

Fuselage Volume (ft*) 

525 

Mean Aerodynamic Chord, Canard (ft) 

70 

Mean Aerodynamic Chord, Horizontal Tail (ft) 

71 

Mean Aerodynamic Chord, Vertical Tail (ft) 

72 

Mean Aerodynamic Chord, Wing (ft) 

73 

Number of Crew 

182 

Number of Vertical Tails 

529 

Pod Length (ft) 

307 

Pod Radius (ft) 

308 

Pod Volume (ft*) 

524 
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TABLE 1. (cont) 


Geometry Variables 

Variable 

Global 

Number 

Reference Area, Canard (ft‘) 

371 

Reference Area, Horizontal Tail (fl‘) 

388 

Reference Area, Vertical Tail (ft^) 

415 

Reference Area, Wing (ft’) 

422 

Root Chord, Canard (ft) 

367 

Root Chord, Horizontal Tail (ft) 

368 

Root Chord, Vertical Tail (ft) 

369 

Root Chord, Wing (ft) 

370 

Root Elevation, Canard (ft) 

671 

Root Elevation, Horizontal Tail (ft) 

669 

Root Elevation, Vertical Tail (ft) 

670 

Root Elevation, Wing (ft) 

668 

Root LE Location, Canard (ft) 

608 

Root LE Location, Horizontal Tail (ft) 

609 

Root LE Location, Vertical Tail (ft) 

611 

Root LE Location, Wing (ft) 

612 

Root T/C Ratio, Canard 

427 

Root T/C Ratio, Horizontal Tail 

428 

Root T/C Ratio, Vertical Tail 

429 

Root T/C Ratio, Wing 

430 

Span, Canard (ft) 

411 

Span, Horizontal Tail (ft) 

412 

Span, Vertical Tail (ft) 

413 

Span, Wing 

414 
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TABLE 1. (cont) 


Geometry Variables 

Variable 

Global 

Number 

Stiake Area, LE (ft^) 

682 

Strake Area, TE (ft*) 

686 

Strake Sweep, LE (deg) 

684 

Taper Ratio, Canard 

511 

Taper Ratio, Horizontal Tail 

512 

Taper Ratio, Vertical Tail 

513 

Taper Ratio, Wing 

514 

Tip T/C Ratio, Canard 

431 

Tip T/C Ratio, Horizontal Tail 

432 

Tip T/C Ratio, Vertical Tail 

433 

Tip T/C Ratio, Wing 

434 

Wetted Area, Canard (ft*) 

417 

Wetted Area of Each Pod (ft*) 

419 

Wetted Area, Fuselage (ft*) 

416 

Wetted Area, Horizontal Tail (ft*) 

418 

Wetted Area of the LE Strake (ft*) 

663 

Wetted Area of the TE Strake (ft*) 

664 

Wetted Area, Vertical Tail (ft*) 

420 

Wetted Area, Wing (f^) 

421 

Wing Dihedral (deg) 

667 

Wing LE Flap Chord (% of wing chord) 

243 

Wing TE Flap Chord (% of wing chord) 

470 
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TABLE 2. 


Trajectory Variables 


Variable 

Global 

Number 

Altitude at End of Phase 1 

217 

Altitude at End of Phase 2 

218 

Altitude at End of Phase 3 

219 

Altitude at End of Phase 4 

220 

Altitude at End of Phase 5 

221 

Altitude at End of Phase 6 

222 

Altitude at End of Phase 7 

223 

Altitude at End of Phase 8 

224 

Altitude at End of Phase 9 

225 

Altitude at End of Phase 10 

226 

Altitude at End of Phase 11 

227 

Altitude at End of Phase 12 

228 

Altitude at Start of Phase 1 

229 

Altitude at Start of I^ase 2 

230 

Altitude at Start of Phase 3 

231 

Altitude at Start of Phase 4 

232 

Altitude at Start of Phase 5 

233 

Altitude at Start of Phase 6 

234 

Altitude at Start of Phase 7 

235 

Altitude at Start of Phase 8 

236 

Altitude at Start of Phase 9 

237 

Altitude at Start of Phase 10 

238 

Altitude at Start of Phase 11 

239 

Altitude at Start of Phase 12 

240 
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TABLE 2. (cont) 


1 Trajectory Variables 

Variable 

Global 

Number 

Cruise Mach Number 

183 

Cruise Range (nm) 

351 

Design Load Factor (g’s) 

188 

Instantaneous Turn Rate, Phase 1 (deg/s) 

435 

Instantaneous Turn Rate, Phase 2 (deg/s) 

436 

Instantaneous Turn Rate, Phase 3 (deg/s) 

437 

Instantaneous Turn Rate, Phase 4 (deg/s) 

438 

Instantaneous Turn Rate, Phase 6 (deg/s) 

439 

Instantaneous Turn Rate, Phase 6 (deg/s) 

440 

Instantaneous Turn Rate, Phase 7 (deg/s) 

441 

Instantaneous Turn Rate, Phase 8 (deg/s) 

442 

Instantaneous Turn Rate, Phase 9 (deg/s) 

443 

Instantaneous Turn Rate. Phase 10 (deg/s) 

444 

Instantaneous Turn Rate, Phase 11 (deg/s) 

445 

Instantaneous Turn Rate, Phase 12 (de^s) 

446 

Mach Number at End of Phase 1 

399 

Mach Number at End of Phase 2 

400 

Mach Number at End of Phase 3 

401 

Mach Number at End of Phase 4 

402 

Mach Number at End of Phase 5 

403 

Mach Number at End of Phase 6 

404 

Mach Number at End of Phase 7 

405 

Mach Number at End of Phase 8 

406 

Mach Number at End of Phase 9 

407 
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TABLE 2. (cont) 


Trajectory Variables 



Mach Number at End of Phase 10 


Mach Number at End of Phase 11 


Mach Number at End of Phase 12 


Mach Number at Start of Phase 1 


Mach Number at Start of Phase 2 


Mach Number at Start of Phase 3 


Mach Number at Start of Phase 4 


Mach Number at Start of Phase 5 


Mach Number at Start of Phase 6 


Mach Number at Start of Phase 7 


Mach Number at Start of Phase 8 


Mach Number at Start of Phase 9 


Mach Number at Start of Phase 10 


Mach Number at Start of Phase 11 


Mach Number at Start of Phase 12 


Maximum Dynamic Pressure (psi) 


Specific Excess Power, Phase 1 (ft/s) 


Specific Excess Power, Phase 2 (fl/s) 


Specific Excess Power, Phase 3 (ft/s) 


Specific Excass Power, Phase 4 (ft/s) 


Specific ExceSi? Power, Phase 6 (ft/s) 


Specific Excess pTwer, Phase 6 (ft/s) 


Specific Excess Power, Phase 7 (ft/s) 


Specific Excess Power, Phase 8 (ft/s) 


Global 

Number 
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TABLE 2. (coni) 


TrajectoryVariables 

Variable 

Olobal 

Number 

Specific Excess Power, Fbase 9 (ft/s) 

320 

Specific Excess Power, Phase 10 (ft/s) 

321 

Specific Excess Power, Phase 11 (ft/s) 

322 

Specific Excess Power, Phase 12 (ft/s) 

323 

Sustained Turn Rate, Phase 1 (deg/s) 

447 

Sustained Turn Rate, Phase 2 (deg/s) 

448 

Sustained Turn Rate, Phase 3 (d^s) 

449 

Sustained Turn Rate, Phase 4 (deg/s) 

450 

Sustained Turn Rate, I^ase 5 (deg/s) 

451 

Sustained Turn Rate, Phase 6 (deg/s) 

452 

Sustained Turn Rate, Phase 7 (deg/s) 

453 

Sustained Turn Rate, Phase 8 (deg/s) 

454 

Sustained Turn Rate, Phase 9 (deg/s) 

455 

Sustained Turn Rate, Phase 10 (deg/s) 

456 

Sustained Turn Rate, Phase 11 (deg/s) 

457 

Sustained Turn Rate, Phase 12 (deg/s) 

458 

Taxi and Warm-v^ Time (min) 

497 

Takeofi/Land Altitude (ft) 

38 

Take-off Time (min) 

498 

Ultimate Load Factor (g’s) 

519 
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TABLE 3. 


Aerodynamics Variables 

\Variid)le/ " 

Global 

Number 

Horizontal Tail Lift Curve Slope 

708 

Wing lift Curve Slope 

707 


TABLE 4. 


Propulsion Variables 

Variable 

Global 

Number 

Bypass Ratio 

65 

Compressor Adiabatic Efficiency 

198 

Design Fan Presstire Ratio 

310 

Engine Face Diameter (ft) 

189 

Fan Adiabatic Efficiency 

199 

Nozzle Velocity Coefficient 

522 

Number of Engines 

196 

Outer Compressor Pressure Ratio 

336 

Overall Compressor Pressure Ratio 

337 

ThrustAVeight Ratio at Take-off 

516 

Turbine Adiabatic Efficiency 

200 

Turbine Inlet Temperature (deg R) 

517 
































































TABLES. 


Weights Varices 

Variable.. 

tjUdbal 

Number 

Total Aircraft Weight 

585 

Wei^t of Ammunition 

536 

Weight of Bombs 

540 

Weight of Missiles 

676 
































IV. AIRCRAFT GEOMETRY 


A. OVERVIEW 

The Geometry Module is used to define the physical dimensions of the 
proposed aircraft. Inputs are made in nine areas: wing, strakes, horizontal 
and vertical tails, canards, wing mounted pods, fuselage mounted pods, 
fuselage, crew station and fuselage tanks. Of these nine, only three (wing, pods 
and fuselage) are required (either fuselage mounted pods or wing mounted 
pods must be selected). CREATE will insure that the required items are 
completed. 

B. WING GEOMETRY 

Two types of wings may be selected: symmetric or oblique. Variable 
sweep wings may be entered using the symmetric wing type. The wing 
planform in either case must be trapezoidal. The available variables are: 

* Wing Aspect Ratio (to the aircraft centerline). 

Default: 5.0, Range: (0.0,12.0], Type: Real 

* Wing reference area (ft^). This is the total area of the wing, including the 

area covered by the fuselage. 

Default: 500.0, Range: > 0.0, Type- Real 

* Wing dihedral (in degrees), measured positive up from the horizontal. 

Negative values refer to anhedral. 

Default: 0.0, Range: [-20.0,20.0], Type: Real 
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* The fuel density of the wing fuel (in Ibs/fl®) (JP-4 is 48.62) 

Default: 48.62, Range: > 0.0, Type: Real 

* Fraction of the wing chord that is covered by leading edge flaps/slats. 

( 0.12 B 12% of the total wing diord consists of leading edge flaps). 
Enter 0.0 if there are no leading edge devices. 

Default: 0.12, Range: [0.0, 0.5], Type: Real 

* Leading edge sweep angle (in degrees) (only for symmetric wing). Input 
a negative value for a forward sweep. 

Default: 0.0, Range: [-30.0, 60.0], Type: Real 

* Wetted area multiplier (how mudi of the wing is exposed, 1.0 = fully 
exposed wing). 

Default: 1.0, Range: (0.0, 2.0], T}^: Real 

* Wing taper ratio. 

Default: 0.99, Range: [0.0, 1.0], Type: Real 

* Thickness to chord ratio at the wing root. 

Default: 0.1, Range: [0.02, 0.18], Type: Real 

* Thickness to chord ratio at the wing tip. 

Default: 0.1, Range: [0.02, 0.18], 

* Fraction of the total wing chord that is covered by trailing edge flaps. 
Trailing edge flaps are assumed to be double-segmented Fowler flaps. 
Default: 0.12, Range: [0.0, 0.5], Type: Real 

* Fraction of the available wing volume that will be filled with wing fuel 
(0.5 B 50% of the wing volume will have fuel in it). 

Defatjdt: 1.0, Range: [0.0, 1.0], lype: Real 

* Position of the wing quarter chord, given as a fraction of total fuselage 
length (for a 50’ fuselage, wing quaxirn: chord at 20’ equates to 20/50b0.4, 
as measured firom the nose). 

Default: 0.5, Range: [0.0,1.0], Type: Real 
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• Elevation of the root chord of the wing above the fuselage reference plane, 
given as a fraction of the maximum fuselage radius. 

0.0 s the wing is mounted on the middle of the fuselage 
1.0 s the wing is mounted on top of the fuselage 
-1.0 B the wing is mounted on the bottom of the fuselage. 

Default: 0.0, Range: [-1.0, 1.0], IVpe: Real 


C. STRAKE GEOMETRY 

Leading edge and/or trailing edge strakes may be selected. Strakes are 
the only method available that vdll modify the straight leading edge or trailing 
edge of the wing. If only LE or TE strakes are present, set the values for the 
strake that is not present to 0.0. If the strakes are not positioned correctly 
relative to the wing, a non-fatal warning will be printed out. The available 
variables are: 


• Location of the strake leading edge on the fuselage, as a fraction of the 
total fuselage length measured from the fuselage nose. 

Default: 0.0, Range: [0.0, Wing LE], Tyi)e: Real 

• Ratio of the leading edge strake 8pan/2 to the wing span/2. 

Default: 0.0, Range: [0.0,1.0]. Type: Real 

• Location of the strake trailing edge as a fraction of the total fuselage 
length, measured from the fuselage nose. 

Default: 0.0, Range: [Wing LE, 1.0] 

• Ratio of the trailing edge strake span/2 to the wing span/2). 

Default: 0.0, Range: [0.0, 1.0], Type: Real 

• Wetted area multiplier for the strake(s). 

Default: 1.0, Range: [0.0, 2.0], Type: Real 
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• Strake leading edge bluntness indicator 
0 « sharp leading edge 
1 s blunt leading edge 
Default: 0, Range: 0 or 1, Type: Integer 


D. HORIZONTAL AND VERTICAL TAIL GEOMETRY 

Only conventional tail surfaces are supported. V-tails or canted vertical 
stabilizers can not be entered in this version of ACSYNT. While not required, 
if a vertical tail is not used, ACSYNT will crash during printout of the final 
summary section. This crash will not affect the aircraft calculations. The 
available variables are: 


• Aspect ratio (to the fuselage centerline). 

Default: 5.0, Range: (0.0, 12], Type: Real 

• Reference area (ft*). If the area is set at 0.0, ACSYNT will size the 
surface area based on the value for the horizontal tail sizing fraction, if 
given (Tail area » wing area times the sizing firaction). If the horizontal 
tail sizing firaction is set to 0.0, the tail will be sized using the volume 
coefficient. 

Default: 60.0, Range: > 0.0, I^pe: Real 

• HorizontalA^ertical tail volume coefficient. Used only when the horizontal 
tail sizing firaction is set to 0.0 and the area is input as 0.0. 

Default: 1.0, Range: [0.3,1.0], Type: Real (Hor. Tail) 

Default: 0.6, Range: [0.01, 0.2], T^pe: Real rVer. Tail) 

• HorizontalA^ertical tail sizing firaction. If set to 0.0, the horizontal tail is 
sized using the voliime coefficient. 

Default: 0.0, Range: [0.0, 1.0], Type: Real 




Leading edge sweep (in degrees). 

Default: 0.0, Range: [-9.0, 60.0], Type: Real 





• Wetted area mtdtiplier. 

Defaidt: 1.0, Range: [0.0, 2.0], Type: Real 

• Taper ratio. 

Default: 0.99, Range: [0.0,1.0], T3T>e: Real 

• Thickness to chord ratio at the root. 

Default: 0.1, Range: [0.02, 0.18], IVpe: Real 

• Thickness to chord ratio at the tip. 

Default: 0.1, Range: [0.02, 0.18], l^pe: Real 

• Location of the trailing edge of the horizontal/vertical tail, as a fraction 
of the total fuselage length, measured from the nose. 

Default: 1.0, Range: [0.5, 1.0], Type: Real 

• Elevation of the horizontal tail on the fuselage. 

-1.0 to 0.99 s horizontal tail is mounted on the fuselage. 

1.0 to 1.99 s horizontal tail is motmted on the vertical tad. 

2.0 a horizontal tad is mounted on top of the vertical tad (T-tad) 
Defatdt: 0.0, Range: [-1.0, 2.0], Typ®* ^&1 

• Elevation of the root chord of the vertical tad as a fraction of the 
maximum fuselage radius, measured up from the fuselage reference 
plane. 

Defa\dt: 0.0, Range: [-1.0,1.0], Type* Real 

• Number of vertical tails 
1.0 a one central tad 

2.0 a two symmetric tads 

3.0 a two symmetric tads with 1 central tad 

Default: 1.0, Range: 1.0 or 2.0 or 3.0, IVpe: Real 

• Sizing logic. If equal to true, then the tad(s) wdl be resized on every 
ACSYNT iteration. If this is set to false, the input value for the area wdl 
be used regardless of the values used for the sizing fraction or the volume 
coefficient. 

Default: F, Range: T or F, Type: Logical 
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E. CANARD GEOMETRY 


Canards may be used as a control surface or as a third lifting surface. 
The available variables are: 


* Aspect Ratio. 

Default; 5.0, Range; (0.0, 12.0], IVpe: Real 

* Reference area (ft^). If this is set to 0.0, the canard will be sized using 
the canard sizing fraction, if given (Canard area — wing area times 
fraction). If the canard sizing fraction is 0.0, the canard will be sized 
using the volume coefficient. 

Default: 50.0, Range; > 0.0, T^pe; Real 

* Canard volume coefficient. (This should be negative since the canards are 
in frnnt of the wing). Used only if the sizing fraction is 0.0. 

Default: -0.8, Range: [-1.0, 0.0], 

* Canard sizing fraction. If 0.0 is entered, the canard will be sized using 
the volume coefficient. 

Default: 0.0, Range: [0.0,1.0], Type: Real 

* Leading edge sweep (degrees). 

Default: 0.0, Range: [-9.0, 60.0], Type: Real 

* Wetted area multiplier. 

Default: 1.0, Range: (0.0, 2.0], Type: Real 

* Taper ratio. 

Default: 0.99, Range: [0.0,1.0], T)^: Real 

* Thickness to chord ratio at root. 

Default: 0.1, Range: [0.02, 0.18], Type: Real 

* Thickness to chord ratio at tip. 

Default: 0.1, Range: [0.02, 0.18], Type: Real 

* Location of the leading edge of the canard root chord as a fraction of total 
fuselage length. 

Default: 0.0, Range: [0.0, 0.5], Type: Real 
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• Elevation of the canard above the fuselage reference plane as a fraction 
of mflyimiim hiselage radius. 

1.0 s top mounted canard 
-1.0 s bottom mounted canard 
Default: 0.0, Range: [-1.0, 1.0], T^pe: Real 

• Canard location 

1 s canard on the central body 

2 s canard is outboard of twin nacelles (fuselage inlets) 

Default: 1, Range: 1 or 2, IVpe: Integer 

• Sizing logic. If equal to true, then the canards will be resized on every 
ACSYNT iteration. If equal to false, the input value for the area will be 
used. 

Default: F, Range: T or F, Type: Logical 


F. WING MOUNTED ENGINE PODS 

Either wing pods or fuselage pods must be selected. The number of pods 
should equal the number of engines on the aircraft. Up to ten pods may be 
defined. The available variables are: 


• Pod Diameter (ft). If set equal to 0.0, the engine diametm* will be used. 
Default: 3.0, Range: (0.0, 30.0], Type: Real 

• Pod Length (ft). If set to 0.0, the engine length will be used. 

Defaxilt: 10.0, Range: (0.0, 40.0], l^pe: Real 

• X location of the nose of the pod relative to the wing leading edge, given 
as a fraction of the local wing chord. (Fig 2). Negative values indicate 
that the pod leading edge is ahead of the wing leading edge. 

Default: 0.0, Range: [-1.0, 1.0], IVpe: Real 

• Y location of the center of the pod relative to the fuselage centerline, 
given as a fraction of the wing semi-span. (Fig 2). 

Default: 0.5, Range: [0.0, 1.0], Type: Real 
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• Z location of the center of the pod above the wing, as a fraction of 
maximum pod diameter. (Fig 2). Negative values indicate that the pod 
center is below the wing. 

Default: -1.0, Range: [-2.0, 2.0], Type: Real 

• Wing Pod symmetry code. 

0 m pod has a symmetric image on the other wing 
1 s pod does not have an image 
Default: 0, Range: 0 or 1, Type: Integer 

G. FUSELAGE MOUNTED PODS 

Either wing motmted pods or fuselage mounted pods must be selected. 
The total number of pods must match the number of engines on the aircraft. 
Up to 10 pods may be defined. The available variables are: 


• Fuselage pod diameter (ft). If set to 0.0, the engine diameter will be used. 
Default: 3.0, Range: (0.0, 30.0], Type: Real 

• Fuselage pod length (ft). If set to 0.0, the engine length will be used. 
Default: 10.0, Range: (0.0, 40.0], I^pe: Real 

* Stand-off distance; the distance between the pod wall and the fuselage, 
given as a fraction of maximum pod radius. 

0.0 ■ Pod is tangent to the fuselage 
-1.0 « Pod is half-way submerged into the fiiselage 
-2.0 « Pod is fully submerged into the fuselage 
Default: 0.1, Range: [-2.0, 3.0], IVpe: Real 

* Angular orientation of pod measured positive up from the horizontal (in 
degrees) (Fig 3). 

90.0 > 12 O’clock position 
-90.0 m 6 O’clock position 
Defatilt: 0.0, Range: [-90.0, 90.0], Type: Real 
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Figure 2. Wing Pod Geometry 



29 










• X location of the pod nose relative to the nose of the fuselage, given as a 
fraction of total fuselage length. 

Default; 0.8, Range; [0.0, 1.0], Type; Real 

• Fuselage Pod Gfymmetry code. 

0 K Pod has an image on the other side 
1 « Pod does not have an image 
Default; 0, Range; 0 or 1, Type; Real 


H. FUSELAGE GEOMETRY 

This section is required. ACSYNT models the aircraft fuselage with a 
cone for the nose and afterbody and a cylinder for the main body. The 
available variables are; 


• Maximum diameter of fuselage (ft). 

Default; 6.0, Range; > 0.0, Type; Real 

• Fuselage length (ft). 

Default; 50.0, Range; > 0.0, Type; Real 

• Diameter of radar dish located in the nose (ft) (Enter 0.0 if there is no 
radar). 

Default; 0.0, Range; [0.0, 20.0], Type; Real 

• Fineness ratio of the afterbody (length/diameter). 

Default; 2.0, Range; [0.0, 99.99], Type; Real 

• Total fuselage fineness ratio (length/diameter) (If 0.0 is entered, 
ACSYNT will estimate it using fuselage length divided by maximum 
fuselage diameter). 

Default; 0.0, Range; [0.0, 99.99], Type; Real 

• Fineness ratio of the nose (length/diameter). *Note* Small changes in 
this variable results in significant changes in the gross weight. 

Default; 3.0, Range; [0.0, 99.99], Type; Real 
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* Length of radar equipment located behind the radar (it). 

Default: 0.0, Range: [0.0, 30.0], Type: Real 

* Siu-face area complexity factor. The fuselage is modeled by using a cone 
for the nose and afterbody, and a cylinder for the mid-section. If the 
surface area will be greater or less than this, it may be altered with this 
variable. 

1.0 s satisfactory model 

1.1 s add 10% more siuface area 

Defardt: 1.0, Range: [0.0, 2.0], Type: Real 

* Fuselage wall thickness (ft) (For transports only). 

Default: 0.0, Range: [0.0, 1.0], Type: Real 

* An estimate of the fuel weight required for the mission. This will be the 
first estimate that ACSYNT uses to fly the mission. 

Default: 5000.0, Range: [0.0, 9000000.00], Type: Real 

* Tail indicator. 

0 s standard engine nozzle at rear of fuselage 
1 s fuselage tapers down without a nozzle 
Default: 0, Range: 0 or 1, Type: Integer 


I. CREW STATION 

This is used only to document the existence of a cockpit. It will not affect 
the fuselage dimensions. The available variables are: 


• Length of crew compartment (ft). If 0.0 is entered, ACSYNT will 
attempt to size it. 

Default: 0.0, Range: [0.0, 30.0], Type: Real 

• Width of crew compartment (ft). 0.0 may also be used here. 

Default: 0.0, Range: [0.0, 20.0], TVpe: Real 

• Number of crew members. 

Default: 2, Range: [0, 6], Type: Integer 
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• Seating arrangement 
T « Tandem 
F s 2 abreast seating. 

Default: F, Range: T or F, Type: Logical 


J. FUSELAGE FUEL TANKS 

One or two fuselage fuel tanks may be specified. If two tanks are desired, 
the fuselage fuel load will be split equally between the two tanks. There is 
only one input: 


• Fuel Density (Ibs/ft*). JP-4 represents the default value. 
Default: 48.62, Range: > 0.0, Type: Real 
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V. TRAJECTORY MODULE 


A. OVERVIEW 

The Trajectory Module is used to define a mission for the aircraft. It 
serves as the cornerstone for the design, in that the converged aircraft is 
optimized to the input mission. Different missions may or may not be satisfied 
by the converged design. 

Up to twelve legs may be defined for a given mission, using six different 
types of legs: climb, cruise, acceleration, combat, descent and loiter. Any 
number of these six leg types may be used to define a mission. It is not 
necessaiy to use a strictly logical profile. A mission may consist only of a 
cruise leg, if so desired, without any climbs or descents. A t 3 rpical profile is 
shown in Table 6. Weapons (bombs, ammunition or missiles) may be dropped 
only during a combat phase. If weapons are to be dropped, the weight and 
drag of the ordnance is removed fi:om the aircraft at the termination of the 
combat phase. 

This is the most error prone part of ACSYNT. Both fatal and non-fatal 
errors alike occur during the execution of the Trajectory Modiile, but these 
errors are not always caused by the Trajectory modiile. Many calls are made 
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to the Propulsion and Aerodynamics modules from the Trajectory module and 
errors often are caused by these two modules. 

The inputs to this module are broken up into two parts. The first part 
consists of three menus for entering variables. The second part is used for 
entering the mission profile. A detailed description of the Trajectory module 
of ACSYNT can be found in Reference 5. 

B. TRAJECTORY VARIABLES 

The following variables are required for input: 


• Cruise Mach number. 

Default: 0.8, Range: (0.0, 3.0], T 3 q)e: Real 

• Design load factor (g’s). 

Default: 3.0, Range: [1.0, 12.0], Type: Real 

• Ultimate load factor (g’s). 

Default: 4.5, Range: [1.0,15.0], Type: Real 

• Takeoff obstacle requirement 

0 B military aircraft (50 ft clearance) 

1 B civilian aircraft (35 ft clearance) 
Default: 0, Range: 0 or 1, Type: Real 

• Fuel reserve, as a fraction of total fuel. 
Default: 0.05, Range: [0.0, 0.1], Type: Real 

• Estimated endurance Mach number. 
Default: 0.5, Range: [0.0, 2.0], Type: Real 

• Maximum dynamic pressure, q (Ibs/ft^). 
Default: 700.0, Range: > 0.0, Type: Real 
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• Aircraft range (nm). 

Default: 1000.0, Range: > 0.0, 

• Time spent during warm-up and taxi (min). 

Default: 5.0, Range: > 0.0, Type: Real 

• Power setting dtiring warm-up and taxi 

1 St max aftOTbumer 

2 s military power 

3 s maximum continuous power 

4 s thrust equals drag 

5 s idle 

Default: 5, Range: [1, 5], Type: Integer 

• Time spent during take-ofif (min). 

Default: 1.0, Range: > 0.0, Type: Real 

• Power setting during take-ofif (same as above). 

Default: 2, Range: [1, 5], Type: Integer 

• Breguet altitude search indicator (used during cruise and climb phases 
of the mission profile. If selected, ACSYNT will attempt to find the 
optimum cruise altitude). 

0 « no search 

1 K search for optimum altitude 
Default: 0, Range: 0 or 1, Type: Integer 

• Loiter altitude search indicator (iised during loiter phases). If selected, 
ACSYNT wiU attempt to find the optimum loiter altitude. 

0 SB no search 

1 s search for loiter altitude 
Default: 0, Range: 0 or 1, Type: Integer 

• Estimate of total internal fuel weight (lbs). 

Default: 5000.0, Range: (0.0, 999999.0], Tyi)e: Real 

• Amount of external fuel (drop tanks) (lbs). 

Default: 0.0, Range: [0.0, 99999.0] 

• Weight of trapped fuel (this is the weight of any unusable fuel) (lbs). 
Default: 100.0, Range: 0.0, 1000.0], Type: Real 
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• Engine sizing flag. Used in cozdunction wiUi the Propulsion Module. The 
engine will only be sized if the engine weight, length and diameter are all 
input as 0.0 in the Propulsion module. 

0 « engine sized for thrust/weight at take-off, no AB 
-1 ae engine sized for thrust/weight at take-off with AB 
-2 « engine sized for a given thrt^ with AB 
-3 B engine sized for a given thrust, no AB 
Default: -3, Range: [-3, 0], Type: Integer 

• Number of trsdectory cruise phases (see below). 

Default: 2, Range: [0,12], TVpe: Integer 

• Total number of trsgectory phases (see below). 

Default: 1, Range: [0,12], Type: Integer 

• Debug print option. 

0 s No Debug 

1 B Debug 

Default: 0, Range: 0 or 1, T^pe: Integer 


C. MISSION PROFILE 

Information that is required to define a mission includes the phase 
starting and ending Mach number, starting and ending altitude (ft), the 
distance traveled (nm), the time used during that phase (min), the g loading 
(for a combat phase) and the power setting for that phase. A sample mission 
is shown in Table 6 below. Note that the climb and descent phases do not vise 
the Mach number, distance or time blocks. Only the starting and ending 
altitudes are required. It is also permissable to skip a climb or descent phase 
and input another cruise phase with a new altitude. The distance covered 
during a climb or descent phase (the distance is computed internally) is not 
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subtracted from a following cruise phase. The distance block for the loiter 
phase represents the loiter radius. 


TABLE 6. Sample Mission Profile 



Mach 

Madi 

Alt 

Alt 

Horia 


Power 

Phase 

- -Start■ 

End 

Start 

End 

Dist 


Setting 

Climb 

0.00 

0.00 

100 




3 

Cruise 

mm 

0.80 


20000 

480 

mm 

4 

Cruise 

0.70 

0.70 

200 

200 

210 

30.0 

4 

Accel 

0.70 

0.90 

200 

200 


1.0 

2 

Combat 

mem 


200 

200 

0 

4.0 

2 

Cruise 

0.70 

0.70 

200 

-1 

210 

30.0 

4 

Climb 

0.00 

0.00 

200 

20000 

0.0 

0.0 

3 

Descent 

mm 

0.00 

20000 

500 



5 

Loiter 

0.20 

0.20 

5000 

5000 

10.0 

20.0 

4 


As fuel is burned during a cruise phase, the aircraft will climb as the 
weight is burned off. To prevent this, a ”-l" should be entered as an ending 
altitude (note that this is an integer value). This forces the ending altitude to 
match the starting altitude. 

During combat phases, an option is given to input the sustained g 
loading. If the design cazmot sustain the input value, ACSYNT will reduce it 
until it can be sustained (P, s 0.0). 
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The "power setting" options are 


• Is maximiun afterburner 

2 B militazy power 

3 S mfl-rimiim continuous 

4 B thrust equals drag 

5 b idle 
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VI. AERODYNAMICS MODULE 


A. OVERVIEW 

The Aerodynamics module will determine the aircraft drag, induced drag 
and lift as a function of the angle of attack. The aircraft minimum drag is 
calculated through component build-up. The drag for individual components 
is determined and then summed to determine the total drag at a given Mach 
number. Hie total drag consists of: fnction drag, wave drag, leading edge 
blimtness drag, external stores drag, weapons and bomb drag, engine cowl 
drag, engine boat-tail drag and interference drag [Ref 2;p. 131]. Detailed 
information about the aerodynamic methods may be found in Reference 4. The 
code has been validated up to Mach 3.0 by NASA-AMES. 

B. AERODYNAMICS INPUT 

CREATE uses 8 separate pages to input the aerodynamic characteristics 
of the design. The available variables are: 

• Ratio of body base area to mfHrimum body cross-section. This term is 
used to accotmt for separation drag on the rear of the body. The base 
area is any rearward-facing blunt surface. 

Default: 0.15, Range: [0.0, 0.5], Type: Real 

• Angle of attack at which Cj, max occurs (deg) 

Default: 35.0, Range: (0.0, 60.0], Type: Real 
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* Maximum angle of attack for subsonic compressibility or interference 
(deg). 

Default: 40.0, Range: (0.0, 60.0], l^pe: Real 

* Width of the fuselage at the canards (if used) or of the nose. Used in 
calculating the fuselage pitching moment contribution. 

Default: max fu^lage diameter. Range: > 0.0, I^pe: Real 

* Boat-tail exposure factor (for use with pods). If 4 pods were defined but 

2 of them are half in the fuselage then the boat-tail exposure 

factor is 0.75. (Number of exposed pods/total number of pods). 
Default: 0.0, Range: [0.0,1.0], Type: Real 

* Ci, max scaling factor for clean aircraft. 

Default: 1.0, Range: > 0.0, Typ^^ Keal 

* Laminar-Turbulent skin firiction weighting factor. 

0.0 « All lanodnar flow 

1.0 * All turbulent flow 

Default: 1.0, Range: [0.0,1.0], Type: Real 

* Reference Mach number array. Used with the following 5 variables. This 
is an array of up to 10 numbers. Each of the following 5 variables must 
have the same number of values (i.e. if enter 7 numbm« are input here, 
7 numbers should be input for the other variables). The terms in the 
array correspond 1 to 1 with the terms in the 5 following arrays. See the 
examples section for additional insight. 

Default: 0.0, Range: [0.0, 3.0], Type: Real 

* Cl at zero angle of attack for the fiiselage. This is an array of up to 10 
values that corresponds 1:1 with the reference Mach number array above. 
Default: 0.0, Range: [0.0,1.0], Type: Real 

* Canard C^, at zero angle of attack. This is an array of up to 10 values 
that corresponds 1:1 with the reference Mach munlW array above. 
Default: 0.0, Range: [0.0,1.0], Type: Real 

* Wing Cl at zero angle of attack. This is an array of up to 10 values that 
corresponds 1:1 with the reference Mach number array above. 

Default: 0.0, Range: [0.0, 1.0], Type: Real 
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* Win g zero-lift pitching moment. This is an array of up to 10 values that 
corresponds 1:1 with the reference Mach number array above. 

Default: 0.0, Range: [0.0,1.0], Type: Real 

* Sweep angles for a variable sweep wing (deg). This is an array of up to 
10 values that corresponds 1:1 with the reference Mach number array 
above. Ihese values are not used if the normal Mach number calculation 
code (below) is set to 0. 

Default: 0.0, Range; [0.0, 60.0], Type: Reel 

* Variable sweep wing flag. 

T s Wing is variable sweep/oblique 
F « Wing is not variable sweep 
Default: F, Range: T or F, Tjrpe: Logical 

* Normal Mach number calculation code, (swept/oblique wings) 

0 s Acsynt will sweep the wing to keep the normal component of the 
Ma<^ number constant at all times. 

1 SB Do not calculate the normal component. 

Default: 1, Range: 0 or 1, Tsrpe: Real 

* Desired normal component of the Mach number. Used only if the normal 
Mach number calculation code above is set to 0. 

Default: 0.75, Range; (0.0, 3.0], 

* Maximum wing sweep for the normal Mach number calculations. Used 
only if the normal Mach number calculation code above is set to 0. 
Default: 60.0, Range: [0.0, 60.0], Type: Real 

* Minimum wing sweep for the normal Mach number calculations. Used 
only if the normal Mach number calculation code above is set to 0. 
Defaiilt: 0.0, Range: [0.0, 60.0], IVpe: Real 

* Wing airfoil section code. 

1 as Sharp or near sharp airfoils 

2 « 230-XX and 00-XX airfoils 

3 s 6-series airfoil 

4 s Whitcomb supercritical airfoil 

5 s Leading edge radius to chord ratio specified 

If the aspect ratio is less than 1.75, this code is ignored and low-aspect 
ratio theory is used. Only code 1 gives a smooth drag polar. Other codes 
may have breaks in the drag polars at high angles of attack and in 
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transonic regions 

Default: 1, Range: [1, 5], Type: Integer 

• Leadii^ edge radius to chord ratio, used with code 5 above. 

Default: 0.02, Range: [0.0, 0.5], T^e: Real 

• Canard airfoil section code. Same as the wing airfoil section codes above. 

• Canard leading edge radius to diord ratio, used with canard airfoil 
section code 5. 

Default: 0.02, Range: [0.0, 0.5], Type: Real 

• Distance between the outsides of the twin nacelles, for canard placement 
(if applicable). 

Default: 0.0, Range: >» 0.0, Type: Real 

• Supercritical wing flag. 

1 a Wing is supercritical 
0 a Wing is not supercritical 
Default: 0, Range: 0 or 1, Type: Integer 

• Body cross-section code. 

0 a Circular body 

1 a Trapezoidal body 

Default: 0, Range: 0 or 1, T 3 npe: Real 

• Cowl exposure factor. Used in the same manner as the boat-tail exposure 
factor. 

Default: 0.0, Range: [0.0,1.0], Type: Real 

• Friction drag multiplying factor. 1.0 a standard roughness. 

Default: 1.0, Range: [0.0, 2.0], Type: Real 

• Canard angle of incidence (used for trim drag) (deg). 

Default: 0.0, Range: 0.0,10.0], Type: Real 

• Average chord of flaps (ft) 

Default: 0.0, Range: > 0.0, Type: Real 

• Total area of both wing flaps (ft‘) 

Default: 0.0, Range: > 0.0, Type: Real 
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* Total span of flaps to be used for aircraft trinuning (ft) (used for tailless 
aircraft) 

Default: 0.0, Range: > 0.0, Type: Real 

* Desired location of the CG, given as a fraction of wing chord. 

Default: 0.25, Range: [0.0,1.0], Type: Real 

* Static margin for the CG placement. This is the allowable range that 
the CG may be varied. 

Default: 0.0, Range: [0.0,1.0], Type: Real 

* Height of CG above the fuselage centerline (ft) 

Default: 0.0, Range: > 0.0, Type: Real 

* Horizontal tail angle of incidence (deg). 

Default: 0.0, Range: [0.0, 10.0], Type: Real 

* Mach numbers for detailed aerodynaimc output, mavimum of 10 in array 
format. Corresponds 1:1 with the altitude and C^ arrays below. 
Default: 0.0, Range: [0.0, 3.0], Type: Real 

* Altitudes for detailed aerodynamics output (ft), maximum of 10. 
Default: 0.0, Range: [0.0, 99999.0], Type: Real 

* Lift coefficients for detailed output, maximum of 10. 

Default: 0.0, Range: [0.0, 8.0], Type: Real 

* Total drag due to external bombs (ft‘) 

Default: 0.0, Range: > 0.0, Type: Real 

* Total drag due to external stores (ft‘) 

Default: 0.0, Range: > 0.0, Type: Real 

* Total drag due to drop tanks (ft‘) 

Default: 0.0, Range: > 0.0, Type: Real 

* Total drag due to additional items (ft’). If the NAVY module is being 
called, enter the gear down drag here. 

Default: 0.0, Range: > 0.0, Type: Real 
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* Cl max to be used during landing. If -1.0 is entered, ACSYNT will 
compute this. 

Default: -1.0, Range: -1.0 or [0.0, 10.0], T^pe: Real 

* Cl max to be used for take-off. -1.0 may be entered here also. 

Default: -1.0, Range: -1.0 or [0.0,10.0], Type: Real 

* Trailing edge flap angle for landing (deg). 

Default: 45.0, Range: [0.0, 60.0], T 3 T)e: Real 

* Trailing edge flap angle for take-off (deg). 

Default: 45.0, Range: [0.0, 60.0], T}^: Real 

* Leading edge slat angle for landing (deg). 

Default: 30.0, Range: [0.0, 60.0], Type: Real 

* Leading edge slat angle for take-off (deg). 

Default: 30.0, Range: [0.0, 60.0], 

* Lift to drag ratio for landing. -1.0 may be entered to let ACSYNT 
compute this. 

Default: -1.0, Range: -1.0 or > 0.0, Type: Real 

* Lift to drag ratio for take-off. -1.0 may be entered. 

Default: -1.0, Range: -1.0 or > 0.0, Type: Real 


C. STORES DRAG COMPUTATION 

Figure 4 is an example of an external stores drag computation for 
ACSYNT. Fifteen stations are being loaded with a variety of weapons. D/q is 
the drag value associated with each weapon or laimcher from Table 7. Tip 
mounted missiles are assumed to create no drag because they reduce the 
induced drag for the wing. The moimt modification is 1.0 unless it is a corner 
mount, and then it is 0.8. When weapons are mounted in tandem the draft 
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modification is set to 0.8 to accoimt for the drafting effect. This example 
(Figure 4) and Table 7 are taken in their entirety fi'om Reference 3. 
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Example Store Drag Determination 
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• 



(2) 

♦ 


LAU-114 

« 



(2) 

* 

2.14 

AIM-120 

0.195 



(2) 

0.390 


LAU-106 

0.150 
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(2) 

0.300 


Short Pylon 

0.200 


Carriage 

(2) 

0.400 

3 

AGM-65 

0.330 

Comer 

1 

(1) 

0.330 


LAU-117 

0.200 

Tangent 

i 

(1) 

0.200 


Heavy Pylon 

0.420 

Mount 

1 

T 

(1) 

0.420 

4.12 

MK-82R 

0.220 


0.80 

(12) 

2.112 


MER-10 

0.850 

1 


(2) 

1.700 


Heavy Pylon 

0.420 

f 


(2) 

0.840 

5.6.10,11 

AIM-7 

0.225 

0.80 

0.80 

(4) 

0.576 


LAU-106 

0.150 

0.80 

0.80 

(4) 

0.384 

8 

600 Gal Tank 

0.900 



(1) 

0.900 


Heavy Pylon 

0.420 



(1) 

0.420 

7,9 

ALQ-71 

0.200 



(1) 

0.200 

13 

LANTIRN 

1.660 



(1) 

1.660 


Heavy Pylon 

0.420 



(1) 

0.420 






Drag area « 

11.25ft*''2 


Figure 4. Example Stores Drag Problem [Ref 3] 










TABLE 7. Stores Dr&e Values fHef 3] 


Comporwnt 


Rack Reauired I Dia I Len I L/D I Weight 



Guided Bomba 


GBU-8/B 


GBU-10/B 


GBU-24 


G6U-t2/8 


GBU-11/B 


KMU-431/B 


GBU-15CWW 


G8U-15PWW 


GBU-15 Data Pod 


Cluster Bombs 


SUU-25A, B, C 


SUU-40, 44 


SUU-20/A 


SUU-64.65.66 


SUU-30H-B 


SUU-30B-B 


SUU-41B/A 


SUU-21 


SUU-42 


BL755 


VJ291 


JP233 HB876 


JP233 SG357 













































































































































































































































Table 7. (coat) 


STREBO 




Runway Denial 


BAP-100 


Ourandal 


Chein/Puel Bomba 


MK-12 


Bombs 


Mark-89 PB 


Mafk-81 


Mark-81-R 


Mark-82 


Mark-82-R 


Mark-83 


Mark-83-R 


Mark-84 


Mark-84-R 


Mark-117 


Matk-117-R 


Mark-118 


Mark-116 A2 


Mark-30 E2 


Mark-20 


MLU-32 


Racks 


LAU-3C/A -D/A -61/A -A/A -69A -A/A 


LAU-69A -A/A 


LAU-3/A -A/A 


LAU-60/A 


LAU-10/A 


LAU-32/A S9A Rocket Pod 


LAU-34/A lAQM-45 













































































































































































TABLET, (cont) 


LAU-68/A. B 



9.8 

mm 

mm 


0.190 

UU-88/A 

Triple Rail. AGM-65 






0.990 

LAU-106 

AIM-7. -120 






0.150 

LAU-114/A 

AIM-9 






0.090 

LAU-117 

Single Rail. AGM-65 






0.200 

LAU-118/A 

AGM-88 






0.170 

LAU-128/A 

AIM-9. -120 






0.110 

LAU-5003/A 



15.7 

mm 



0.450 

TER-9 







0.350 

MER-5 

Multiple Ejector (5) 






0.750 


Multiple Ejector (4) 


— 


— 


0.600 

MER-10 

Multiple Ejector (61 






0.850 

BRU-26 

7(61 






1.250 

BRU-40 

Lo-Pro(ile Ejector (4) 






1.140 

BRU-40M 

Lo-Pro(ile Ejector (2) 






1.160 









FimI Tanks 








300 Gatton 



24.0 

inT] 

mm 


0.530 

370 Gallon 




RTT] 

■EE 


0.550 

600 Gallon 



34.4 


mm 


0.900 

150 Gallon 



16.5 

165.0 

■on 


0.270 

275 Gallon 



24.0 

210.0 

8.8 


0.480 

330 Gallon 







0.540 









ASAT 








ASAT & Pylon 



20.0 


10.8 


1.750 

Pylon Only 







0.750 









- Electronic War 








ALQ-101.-2 



10.0 


10.1 


0.180 

ALQ-101-3. -4 



10.0 

157.0 

15.7 


0.200 

ALQ-71.-176 

Fins 


10.0 

115.0 

11.5 


0.200 

ALQ-72 

ECU 


10.0 


KE 



ALQ-87 

ECU. Fins 


10.5 


10.2 


0.2101 

ALQ-ei.-88 



10.0 


19.1 


ijmm 

ALO-31 



23.0 


8.0 

1000.0 

0.8601 

ALQ-119-12 



10.0 

KKfn 

mm 

-600 


ALQ-131 



17.5 

126.0 

^mm 

lEEKE 


AN/ASQ-T11.-T13 

Pod 





1603 


AN/AWG-16 



10.0 

92.0 

mm 



Pave Penny 

Includes Pyton 




_ 

83.0 

0.060 

74x AD204E 

Hardback Beacon Pod 


11.2 

36.0 

IKE 

78.0 

0.210 

Lantim Target Pod 

Includes Pylon 


16.5 

990 

\wm 

-980-105 

0.720 

Lantim Navication Pod 

Includes Pylon 


19.1 

74.0 

3.9 

430.0 

0.940 
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vn. PROPULSION MODULE 


A. OVERVIEW 

The Propulsion module will compute the on and ofif design characteristics 
of a turbcgot or turbofan engine using cycle analysis. There are seven main 
assumptions used during the calculations [Ref 2:p. 163] 

• Bypass ratio is constant at design value 

• Compressor operates along compressor backbone only 

• The turbine is assiuned to be choked 

• The combustor pressure drop is constant 

• Where the fan and outer compressor have a different number of stages, 
the fan characteristics are scaled from outer compressor characteristics. 

• Thermodynamic properties include the effects of fuel addition but do not 
include Association. 

• The compressor reference point equals the compressor design point. 

Six engines are available for selection and the one that most closely 
matches the design should be chosen. Each engine has an associated set of 
default variables. If the engine desired is not one of the default engines, 
simply alter the variables to suit the requirements. Table 8 gives the default 
engines and their default values. It shotild be noted that not all values are 
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given for each engine. Acceptable ranges for some of the engine efficiencies 
may be found in Oates [Ref 6:p. 224]. 


B. PROPULSION INPUTS 

There are seven pages of available variables in CREATE. Default values 
shown are for the J'85 engine where applicable. The variables are: 


• Engine diameter (ft). If engine diameter, length and weight are all 0.0, 
ACSYNT will attempt to size the engine. 

Default: 1.365, Range: [0.0, 30.0], T^rpe: Real 

• Engine length (ft) 

Default: 9.16, Range: [0.0, 60.0], Type: Real 

• Engine weight (lbs). 

Default: 608.0, Range: [0.0,100000.0], Type: Real 

• Inner turbine flow area (ft‘) (at the stator position). 

Default: 0.242, Range: (0.0,10.0], Type: Real 

• Bypass ratio. 

Default: 0.0, Range: [0.0, 30.0], Type: Real 

• Engine face diameter (ft) 

Default: 1.365, Range: [0.0, 30.0], Type: Real 

• Nozzle fineness ratio (nozzle length/nozzle max diameter). 

Default: 0.0, Range: > 0.0, Type: Real 

• Cowl fineness ratio (cowl length/cowl max diameter). 

Default: 0.0, Range: > 0.0, Type: Real 

• Engine hub/tip ratio. 

Default: 0.6, Range: (0.0, 1.0], Type: Real 

• Fuel heating value (BTU/lb,„) (JP-4 = 18600.0) 

Default: 18600.0, Range: [14000.0, 55000.0], Type: Real 
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Scaling factor for inlet capture area (1.0 s capture area equals inlet area). 
Default: 1.0, Range: [0.5,1.5], Type: Real 




• Engine percent corrected airflow. 

Default* 100.0, Range: [50.0,150.0], Type: Real 

• Maximum nacelle diameter factor (1.0 s nacelle diameter equals engine 
diameter). 

Default 1.15, Range: [1.0, 2.0], Type* Real 

• Total nacelle length factor (1.0 s nacelle length equals engine length). 
Default 2.0, Range: [1.0, 3.0], Type: Real 

• Engine face mach number. 

Default: 0.6, Range: (0.0, 2.0], Type: Real 

• Distance between the nozzle centerlines divided by the nozzle diameter 
(this accounts for interference drag due to multiple nozzles). Use 1.0 for 
one engine. 

Default 1.0, Range: >s 1.0, Type: Real 

• Nozzle velocity coefficient (accoimts for incomplete expansion and other 
losses). 

Defaidt 0.98, Range: [0.6,1.0], Type: Real 

• Cooling airflow/primary airflow ratio. 

Default: 0.0, Range: [0.0, 0.2], Type: Real 

• Year of engine installation. Used when ACSYNT sizes the engine (i.e. 
length, weight and diameter are all 0.0) 

Default: 63.0, Range: None, Type: Real 

• Engine thrust with afterburner at sea-level (the engine sizing flag in the 
Tngectory Module should be set to -2). 

Default: 4080.0, Range: [0.0, 999999.0], Type: Real 

• Engine thrust without afterbximer at sea-level (the engine sizing flag in 
the Tnqcctory module shoxild be set to -3). 

Default: 2720.0, Range: [0.0, 999999.0], Type: Real 
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• Thrust/weight ratio at take-off (the engine sizing flag in the Trajectory 
Module should be set to -1). 

Default: 0.5, Range: (0.0, 10.0], Type: Real 

Only one of the above three variables is used, as determined by the 
engine sizing flag in the Trcgectoiy inputs *** 

• Afterburner adiabatic efficiency. 

Default: 0.75, Range: [0.6,1.0], Type: Real 

• Combustor adiabatic efficiency. 

Default* 0.87, Range: [0.6,1.0], Type: Real 

• Ductbumer adiabatic efficiency. 

Default: 0.75, Range: [0.6,1.0], Type: Real 

• Compressor adiabatic efficiency. 

Default: 0.80, Range: [0.6, 1.0], Type: Real 

• Fan adiabatic efficiency. 

Defaialt: 0.82, Range: [0.6,1.0], Type: Real 

• Turbine adiabatic efficiency. 

Default: 0.90, Range: [0.6,1.0], Type: Real 

• Design fan pressure ratio. 

Default: 1.0, Range: [1.0,10.0], Type: Real 

• Outer compressor pressure ratio. 

Default: 1.0, Range: [1.0, 15.0], Type: Real 

• Overall compressor pressure ratio. 

Default: 7.0, Range; [3.0, 50.0], Type: Real 

• Combustor pressure ratio. 

Default: 0.95, Range: [0.6,1.0], Type: Real 

• Afterburner pressure ratio with burner lit. 

Default: 0.94, Range: [0.6, 1.0], Type: Real 

• Afterburner pressure ratio without burner lit. 

Default: 0.94, Range: [0.6, 1.0], Type: Real 
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* Ductbumer pressure ratio with ductbumer lit. 

Default: 0.98, Range: [0.6,1.0], Type: Real 

* Ductbumer pressure ratio without ductbumer lit. 

De&ult’ 0.82, Range: [0.6,1.0], Type: Real 

* Average compressor stage pressure rise (psi). 

Default: 1.27, Range: [1.0, 3.0], Type: Real 

* Tuzidne inlet temperature (degrees R1 

Default 2160.0, Range: [1500.0,4000.0], Type: Real 

* Afterburner max temperature (degrees R) (0.0 = no afterburner). 
Default 0.0, Range: > 0.0, Type: Real 

* Ductbumer max temperature (degrees R) (0.0 s no ductbumer). 
Default: 0.0, Range: > 0.0, Type: Real 

* Incremental inlet total pressure recovery reduction, used with inlet 
pressure recovery code below (input as a positive niunber) 

Default 0.0, Range: [0.0,1.0], Type: Real 

* Inlet pressure recovery code 

1 « (AIA ram recovery) - (incremental inlet total pressure recovery 

reduction) 

2 s (Mil-Spec 5008B) • (incremental inlet total pressure recovery 

reduction) 

3 B (normal shock) - (incremental inlet total pressure recovery reduction) 

4 s Table look-up 

Default 3, Range: [1, 4], Type: Integer 

* Number of engines (this should equal the number of pods). 

Default: 2, Range: [1,10], Type: Integer 

* Specific fuel multiplying factor for condition 1. 

Default 1.0, Range: [0.3, 3.0], Type: Real 

* Upper limit on Mach number where the specific fuel consumption 
multiplying fiictor for condition one is valid. 

Default 1.0, Range: (0.0, 3.0], Type: Real 
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The above two variables (and the two below) are typically used after the 
specific fuel consumption has been determined by a previous convergence run. 
If the calculated SFC is greater than or less than the expected SFC, it may be 
altered for a given Mach range by setting the SFC multiplying factor to a value 
other than one. The Mach numbers specifying the two conditions may not 
overlap. 


• Specific fuel multiplying factor for condition 2. 

Default: 1.0, Range: [0.3, 3.0], Type: Real 

• Lower limit on Mach number where the specific fiiel consumption 
multiplying factor for condition two is valid. 

Default: 1.1, Range: (0.0, 3.0], Type: Real 

• Specific fuel consumption multiplying factor for burner Ht (applied after 
the two previous factors have been added). 

Default: 1.0, Range: [0.3, 10.0], I^pe: Real 

• Scale factor for nozzle boat-tail drag. 

Default: 0.0, Range: [0.0, 2.0], Type: Real 

• Scale factor for total installation drag. 

Default: 0.0, Range: [0.0, 2.0], Type: Real 

• Scale factor for nozzle interference drag. 

Default: 0.0, Range: [0.0, 2.0], I^e: Real 

• Altitudes for detailed output. An array of 6 values. This array will be 
matched up with the Mach number array below. 

Default: 0.0, Range: [0.0, 99999.0], Type: Real 

• Mach numbers for detailed output. An array of 6 values. This array is 
matched up with the altitude array above. 

Default: 0.0, Range: [0.0, 3.0], TyP®’ Real 
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• The number of altitude/Mach number combinations above that do not 
have the afterburner lit. 

Default: 6, Range: [0, 6], Type: Integer 

• Engine type indicator. 

0 » Turbqjet 

2 X Turbofan 

Default: 0, Range: 0 or 2, Type: Real 

• Afterburner indicator. 

0 « No afterburner 
•1 « Afterburner is present but not lit 
2 « Afterburner lit 

Default: -1, Range: 0 or -1 or 2, Type: Real 

• Ductbumer indicator. 

0 s No afterburner 

-1 > Afterburner is present but not lit 
2 s Afterburner lit 

Default: 0, Range: 0 or -1 or 2, Type: Real 
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Default Engii^ yalues 




Inner Turbine Flow Area 


Bypan Ratio 


Engine Face Diameter 


AB Adiabatic Efficiency 


Combustor AcUab Efficiency 


Duetbumer Adiab Efficiency 


C o mpre s sor Adiab Efficiency 


Fan Adiabatic Efficieniency 


Turbine Adiabatic Efficiency 


Hub^p Ratio 


Design fan prentire ratio 


Outer comp pressure ratio 


Overall comp premure ratio 


Combustor premsure ratio 


AB prenure ratio, lit 


AB premure ratio, not lit 


Duetbumer pressure ratio 


DB premuie ratio, not lit 


Avg comp stage rim 


Thrust with burner 


Tlirust, no burner 


Turbine inlet temp 


Cooling/primary air ratio 



1.21 




14560. 


2743. 


0.018 


14500. 


2180. 


Generic 


0.385 


6.23 


8.2 


0.75 


0.87 


0.76 


0.8 


0.9 


0.92 



60000. 60280 9300. 


2836. 2800. 2637. 


Year of installation 

63.0 

mm 

68.0 

70.0 

70.0 

70.0 j 

Length 

9.16 

16.18 

10.31 

14.08 

14.86 

8.67 1 

Weight 

608.0 

3790.0 

3218.0 

8874.0 

9767. 

1421.0 1 


57 





















































































































































Vm. WEIGHTS MODULE 


A. OVERVD5W 

Aircraft wetg^ts are calculated based on the aircraft t 7 i>e (fighter, 
transport or bomber), geometric size and gross weight. A "slope factor" is 
applied to the various aircraft systems and structures to determine an estimate 
of the weights. A Slope of 1.0 should be tised initially for the first convergence 
run. If the calculated weights are greater or less than the expected weight, 
then the slope may be altered to suit the requirement. As an example, a slope 
of 0.7 could be applied to the wing to account for an advanced composites 
structure. Each of the component weights are computed internally to ACSYNT 
and are based on historical data for all metal components. 

B. WEIGHTS INPUT 

CREATE uses four separate pages for input. The variables are; 

• Wing slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Fuselage slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Horizontal tail and/or canard slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 
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Vertical tail slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 




• Nacelles slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Landing gear slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Engines slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Fuel systems slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Hydraulics and pneumatics slope. 

Defatdt: 1.0, Range: [0.0, 3.0], Type: Real 

• Electrical system slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Avionics slope. 

Defatdt: 1.0, Range: [0.0, 3.0], Type: Real 

• Instrumentation slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Environmental control slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Passenger accommodations slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Auxiliary power unit (APU) slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Flight controls slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Crew accommodations slope. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 
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• Payload wei^t (lbs) (includes ammunition, cargo, passengers, etc...). 
Default: 0.0, Range: >s 0.0, l^pe: Real 

• Wing pivot factor (for swept wings only). Used in the same fashion as 
slope factor. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• External tank factor. Used like a slope factor. 

Default: 1.0, Range: [0.0, 3.0], Type: Real 

• Maximum Mach number (for transports and bombers only). 

Default: 0.85, Range: [0.0, 3.0], Type: Real 

• Oblique wing material density (Ibs/in^). 

Default: 0.056, Range: [0.0, 1.0], Type: Real 

• Oblique wing allowable stress (psi). 

Default: 30000.0, Range: [5000.0,100000.0] 

• Wing weight equation 
0 « standard wing 

1 s delta wing 

Default: 0, Range: 0 or 1, TVpe: Integer 

• Oblique wing weight equation 
0 s standard wing 

1 s oblique wing 

Default: 0, Range: 0 or 1, Type: Integer 

• Tail indicator 

0 s standard tail 
1 « T-tail 

Default: 0, Range: 0 or 1, T 3 rpe: Integer 

• Body equation 

1 s uses Sanders body equation 

2 a: Air Force body equation 

Defatilt: 1, Range: 1 or 2, Type: Integer 
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* Wing weight technique (used only with Transports and Bombers) 

1 s Sanders wing equation 

2 s Air Force wing equation 

3 s Langley wing equation 

Default: 1, Range: [1, 3], Type: Integer 

• Estimate of gross weight. This is the starting value for the convergence 
(lbs). 

Transports « 100000.0 
Fighters s 20000.0 
Bombers » 50000.0 

* Weight of Ammunition (lbs). 

Defaixlt: 0.0, Range: >= 0.0, T^pe: Real 

• Weight of Bombs (lbs). 

Default: 0.0, Range: >s 0.0, Type: Real 

• Weight of Missiles (lbs). 

Default: 0.0, Range: >= 0.0, Type: Real 

* Weight of External Tanks (lbs). 

Default: 0.0, Range: >* 0.0, Tjrpe: Real 
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IX. NAVY MODULE 


A. OVERVIEW 

The Navy module was originally developed at NFS to aid in the study of 
a carrier based, high-energy laser equipped aircraft for fleet air defense. Its 
sole purpose is to determine if the design is compatible with the C13-1 catapult 
and the MK 7 MOD 3 arresting gear as installed on the CVN-68 class carriers. 

The catapult is assumed to be operating at maximum capacity for the 
launch, regardless of the aircraft weight. This will provide the highest 
catapult endspeed (liftoff speed) possible to minimize the required wind over 
the deck (A low wind over the deck is desirable to reduce the requirement for 
a hig^ ship speed). In this case, the catapult system is operating at 520 psig 
receiver pressure. The gross weight vs end speed curve [Ref 7:p. 4-28] was 
fitted with a 7th order Lagrange Polynomial [Ref 8] to obtain an equation 
suitable for use in the program. The final endspeed is that due to the catapult 
added to the velocity due to the aircraft thrust. 

Likewise, the aircraft engaging speed for the arresting gear is the highest 
possible engaging speed for the current weight of the aircraft. This also 
provides the minimunn wind over the deck requirements. 


62 




Aircraft performance is based on tropical day conditions at sea-level, to 
provide a worse-case cicenario. The vertical component of the engine thrust is 
added to the lift of the aircraft based on the aircraft AOA. 

No specific inputs are required for the Navy module. All calculations are 
internal to the program. When using this module with CREATE, three items 
must be established. First, the module must be selected. Second, a value for 
the gear down drag should be entered in the 'Total drag due to additional 
items" variable in the Aerod 3 mamics module. The drag supplied will be used 
whenever the aircraft is less than 0.3 Mach. Third, the flap/slat settings for 
takeoff and landing should be set to achieve 90% of Cj, max. The last two 
items are not required but recommended for accurate results. For low thrust 
aircraft with large flap areas, a very high drag (greater than thrust available) 
may be encountered with high cataptdt endspeeds. A reduction of the flap 
setting may reduce the drag coefihcient sufficiently to get airborne. 
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X. EXAMPLE ONE 


A. INTRODUCTION 

To serve as a detailed introduction to NPSASP, the A-10 Thunderbolt 11 
(Fig 4) will be re-created. Each step of the design process will be covered from 
initiatmg a data file to evaluating the output firom ACSYNT, and every module 
will be utilized. It is asstuned that the user has an active account on the 
Aeronautics Department Vax computer system and has some experience with 
Vax commands and terminology. 



Figure 6. A-10 Thunderbolt n [Ref 10:p. 375] 
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B. A-10 DESIGN INPUTS 

If N/A appears next to a variable, that item is not applicable to this 
design. It may be ignored. 


• Login on the Vax and type "DESIGN" (It may be necessary to create a 
new subdirectory at this point, if so directed). This command will bring 
up the opening screen for NPSASP, with several menu options. 

• Select item (1) from the opening menu (RUN CREATE). This starts 
CREATE to begin building the aircraft data file. 

• Select item (2) (CREATE A NEW FILE). 

• Enter a filename of "AlO". CREATE will automatically add a three letter 
extension to the filename of ".ACS" to distinguish it from other files in 
the directory. If the filename selected conflicts with an existing file, 
CREATE will ask for a different name to use. 

• Select item (1) (SIMPLE ANALYSIS). 

• Enter a project title of "A-10 THUNDERBOLT". This should not be 
confused with the initial file name. 

• Select item (3) (BOMBER). This is used later on by the Weights module 
to establish the weights. 

• This is the Module Selection Menu. The first five modules are required 
and may not be changed. The Navy module should be selected by just 
typing a "10" at the prompt. The "NO" will change to a ’YES". Enter a 
"0" to continue. 

• Select item (1), Change the weight to 60000.0, then (2) to continue. If for 
some reason ACSYNT can not converge the design, this is the maximum 
weight that will be investigated. 

• This is the Geometry Selection Menu. Each feature that the design 
incorporates shotdd be selected here. In this case, items 1, 4, 5, 8, 9, 10 
and 11 should be set to 'YES" 
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• Symmetric Wing Geometry: 

. Aspect Ratio: 6.54 

- Surface Area: 506.0 (ft‘) 

- Dihedral: 7.0 deg 

- Fuel Density: 48.62 (Ibs/ft®) (JP-4) 

. Leading Edge Flap Width: 0.12 

- Leading Edge Sweep: 0.0 deg 

- Wetted Area Multiplier: 0.99 

- Taper Ratio: 0.66 

- T/C Ratio, Wing Root: 0.16 

- T/C Ratio, Wing Tip: 0.13 

- Trailing Edge Flap Width (% chord): 0.35 

> Fraction of Wing Volume Filled with Fuel: 0.19 
• Position of Wing Quarter Chord: 0.47 

- Elevation of Wing on Fuselage: -1.0 

- Enter "0" to continue to the next menu. 

• Horizontal Tail Geometry: 

- Aspect Ratio: 2.99 

- Siuface Area: 110.0 

- Tail Volume Coefficient: 1.0 

- LE Sweep: 0.0 

- Wetted Area Multiplier: 1.1 (this a little higher than normal to try and 
account for the extra drag produced by the tail design) 

- Taper Ratio: 0.99 

- T/C Ratio, Root: 0.13 

- T/C Ratio, Tip: 0.13 

- Position of TE of the Root Chord: 0.97 

- Elevation of Tail on Fuselage: 0.0 

- Sizing Logic: T 

- Horizontal Tail Sizing Fraction: 0.234 (The horizontal tail will be sized 
using the wing area * sizing fraction) 

- Enter "0" to continue 

• Vertical Tail Geometry : 

- Aspect Ratio: 1.74 

- Surface Area: 50.0 (the area of 1 tail) 

- Tail Volume (Ik)efficient: 0.1 (not required since the sizing fraction is 
non-zero). 

- LE Sweep: 0.0 

- Wetted Area Multiplier: 1.1 

- Taper Ratio: 0.61 

- T/C Ratio, Root: 0.13 
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- T/C Ratio, Tip; 0.12 

- Number of Vertical Tails; 2.0 

- X Location of TE of the Root Chord: 0.97 

- Elevation of the Root Chord of the Tail on Fuselage: -.9 

- Sizing Logic; T 

- Vertical Tail Sizing Fraction; 0.107 

- Enter "0" to continue 

• Enter "1" for the number of fuselage pods. (There are 2 pods 
symmetrically located). 

• Fuselage Pod (geometry: 

- Engine Pod Diameter: 4.88 

- Engine Pod Length; 10.89 

- Stand-Off Distance: 0.2 

- Angular Orientation: 0.0 

- X Location of Pod Leading Edge: 0.6 

- Wing Pod Symmetry: 0 

- Enter "0" to Continue 

• Fuselage Geometry: 

- Maximum Fuselage Diameter: 5.26 

• Fuselage Length: 53.33 

- Diameter of Nose Radar Dish: 0.0 

- Afterbody Fineness Ratio: 5.5 

• Fuselage Fineness Ratio: 0.0 

- Nose Fineness Ratio: 1.94 

- Length of Radar Equipment Behind Radar: 0.0 

- Surface Area Complexity Factor: 1.0 

- Fuselage Wall Thickness: N/A 

- Mission Fuel Weight Estimate: 12000.0 

- Tail Type: 1 

- Enter "0" to Continue 

• Crew Cockpit Geometry : 

- Length of Crew Station: 0.0 (let ACSYNT size it) 

- Width of Crew Station: 0.0 

- Nrunber of Crew Members: 1 

- Seating Arrangement: T 

- Enter "0" to Continue 

• 1 Fuselage Fuel Bay 

- Fuel Density: 48.62 (JP-4) 
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• Trajectory Page 1: 

- Cruise Mach Number: 0.45 

- Mach Number for Max Endurance: 0.27 

- Design Load Factor: 7.0 

- Ultimate Load Factor: 11.25 

- Aircraft Range: 1000.0 

• Maximum Dynamic Pressure: 700.0 

- Take-Ofif Obstacle Requirement: 0 

- Enter "0" to Continue 

• Trsgectory Page 2: 

- Time for Warm*up and Taxi: 5.0 

- Power Setting During Warm-up and Taxi: 5 

- Time for Take-off: 2.0 

- Power Setting for Take-off: 2 

- Breguet Altitude Search Flag: 0 

- Loiter Altitude Search Flag: 0 

- Enter ”0" to Continue 


• Trsgectory Page 3: 

• Fuel Reserve: 0.05 

- Total Internal Fuel: 11130.0 

• External Fuel: 0.0 

- Weight of Trapped Fuel: 111.0 
. Engine Smng Flag: -3 

- Number of Cruise Phases (see below): 4 

- Total number of Trajectory Phases (see below): 8 

- Debug Option: 0 

• Enter "0" to Continue 

* Trs^ectory Phases. Eight phases will be used to simulate a combat 
mission. The values are given below. Note that each phase is presented 
on a dififerent page. For the combat phase, input 5.0 g’s for item (8). 
Drop bombs and ammunition during the combat phase using items (11) 
and (12) on the menu. 


/ 
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TABLE 9. A-10 Mission 


Phase 

Climb 


Cruise 


Cruise 

Combat 

Cruise 


Climb 


Cruise 


Loiter 


Mach 

Start 

0.00 

0.6 

0.5 

0.6 

0.5 

0.00 

0.5 

0.27 


Mach 

End 

0.00 

0.5 

0.6 

0.6 

0.5 

0.00 

0.6 

0.27 


Alt 

Start 


Alt 

End 


Hoiiz 

Diet 


Horiz 

Time 


Power 

Setting 


100 


5000 


0.0 


0.0 


6000 


5000 


230 


44.0 


100 


100 


40 


8.0 


100 


100 


0 


30.0 


100 


100 


40 


8.0 


100 


5000 


0.0 


0.0 


5000 


5000 


230.0 


44.0 


500 


500 


10.0 


20.0 


* Aerodynamics Page 1: 

- Ratio of Body Base Area to Max Body Area: 0.08 

- Angle of Attack for Cl max: 11.0 

- Maximum Angle of Attack: 19.0 

• Width of the Fuselage at the Nose: 5.26 

- Boat Tail Expostire Factor: 1.0 

- Cl max Scalijag Factor for clean aircraft: 1.0 
■ Laminar-Turbulent Weighting Factor: 1.0 

- Enter "0" to Continue 


* Aerodynamics Page 2: 

- Ref Mach Number Array: 0.15, 0.20, 0.30, 0.40, 0.45, 0.49, 0.53, 0.57, 
0.60, 0.70 

- Cl at Zero AOA for Body: 0.005,0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 
0.005, 0.005, 0.005 

- Canard Cl at Zero AOA: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Wing Cl at Zero AOA: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Zero Lift Pitching Moment: 0.048, 0.048, 0.047, 0.047, 0.047, 0.047, 
0.047, 0.047, 0.047, 0.047 

- Wing Sweep Angles: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Enter "0" to Continue 
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* Aerodynamics Page 3: 

- No Entries for Page 3 

- Enter "0" to Continue 

* Aerodynamics page 4: 

- Wing Airfoil Section Code: 2 

- Wing LE Radius/Chord Ratio: N/A 

- Canard Airfoil Section Code: N/A 

- Canard LE Radivis/Chord Ratio: N/A 

- Distance Between the Twin Nacelles: N/A 

- Supercritical Wing Flag: 0 

- Body Cross-section Code: 1 

- Enter "0" to Continue 

* Aerodynamics Page 5: 

- Pod Cowl Exposure Factor: 1.0 

- Friction Drag Multiplying Factor: 0.95 

- Canard Incidence: N/A 

- Average Flap Chord: 3.485 

- Total Area of Both Wing Flaps: 81.3 

- Total Span of Both Flaps: 0.0 (Not used for trim) 

• Desired Location of CG: 0.26 

- Static Margin for CG: 0.13 

- Height of CG Above Fuselage Centerline: 0.0 

• Horizontal Tail Incidence: 0.0 

• Enter "0" to Continue 

* Aerodynamics Page 6: 

- Mach Numbers for Detailed Aero Output: 0.2, 0.3, 0.6, 0.7 

- Total Number of Requested Mach Numbers: 4 

- Altitudes for Detailed Aero Oatput: 0.0, 0.0, 5000.0, 5000.0 

- Lift Coefiicients for Detailed Output: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0, 0.0 

- Enter "0" to Continue 

* Aerodynamics Page 7: 

- Drag due to External Bombs: 2.12 (4 AGM-65’8, 4 LAU-117’s) 

- Drag due to External Stores: 0.0 

- Drag due to Drop Tanks: 0.0 

- Drag due to Ad^tional Items: 2.2 (for gear down drag. Navy module) 

- Enter "0" to (Ik>ntinue 
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Aerodynamics Page 8: 

- C, max for Landing: >1.0 

- Cl max for Take-off: -1.0 

- TE Flap Angle for Landing: 30.0 

- TE Flap Angle for Take-off: 20.0 

- LE Slat Angle for Landing: 15.0 

- LE Slat Angle for Take-off: 15.0 

- LD Ratio for Landing: -1.0 

- L/D Ratio for Take-off: -1.0 

- Enter "0" to Continue 

Engine T}rpe: Change to Type 2 (TF-30) 

Proptilsion Page 1: 

- Engine Diameter: 4.35 

- Engine Length: 8.33 

- Engine Weight: 1478.0 

- Inner Turbine Flow Area: 0.385 

- Bypass Ratio: 6.23 

- Engine Face Diameter: 3.86 

- Nozzle Fineness Ratio: 0.0 

- Cowl Fineness Ratio: 0.0 

- Enter "0" to Continue 

Propulsion Page 2: 

- Engine Hub/Tip Ratio: 0.55 

- Fuel Heat Value: 18600.0 

- Scaling Factor for Inlet Capture Area: 1.0 

- Engine Percent Corrected Airflow: 100.0 

- Maximum Nacelle Diameter Factor: 1.15 

- Total Nacelle Length Factor: 1.307 

- Engine Face Mach Number: 0.5 

- Distance Between Nozzles/Nozzle Diameter: 2.0 

- Nozzle Velocity Coefficient: 0.98 

- Enter "0" to Continue 

Propulsion Page 3: 

- Cooling/Primary Airflow Ratio: 0.0 

- Year of Installation: 75.0 

- Thrust w/Aflerbumer: N/A 

- Thrust w/o Afterburner: 9065.0 

- Thrust/Weight Ratio at Take-off: N/A 

- Afterburner Adiabatic Efficiency: N/A 




- Combustor Adiabatic Efficiency: 0.87 

- Ductbumer Adiabatic Efficiency: N/A 
. Compressor Adiabatic Efficiency: 0.8 

- Enter "0" to Continue 

• Propulsion Page 4: 

- Fan Adiabatic Efficiency: 0.9 

• Turbine Adiabatic Efficiency: 0.92 
> Design Fan Pressure Ratio: 1.51 

- Outer Compressor Pressure Ratio: 1.396 

- Overall Compressor Pressure Ratio: 21.0 

- Combustor Pressure Ratio: 0.97 

- Afterburner Presstire Ratio: N/A 
Afterburner Pressure Ratio, Not lit: N/A 

- Ductbumer Pressure Ratio: N/A 

- Ductbtimer Pressure Ratio, Not Lit: N/A 

- Enter "0" to Continue 

* Propulsion Page 5: 

- Average Compressor Stage Rise: 1.24 

• Turbine Inlet Temp: 2697.0 

• Afterburner Max Temp: 0.0 

• Ductbumer Max Temp: 0.0 

• Incremental Inlet Tot^ Press Recovery Reduction: 0.0 

- Number of Engines: 2 

• Inlet Pressure Recovery Code: 3 

- Enter "0" to Continue 


* Propulsion Page 6: 

• SFC Mtiltiplying Factor for Condition One: 1.0 

- Upper limit on Mach Nximber for Condition One: 1.0 

- SFC Multiplying Factor for Condition Two: 1.0 

- Lower Limit on Mach Nrunber for Condition Two: 1.1 

- SFC Multiplying Factor for Burner lit: N/A 

- Scale Factor for Nozzle Boat-Tad drag: 1.0 

- Scale Factor for Total Installation Drag: 1.0 

- Scale Factor for Nozzle Interference Drag: 1.0 

- Enter "0” to Continue 
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• Propulsion Page 7: 

- Altitudes for Detailed Output: 0.0, 0.0, 5000.0, 5000.0, 5000.0,10000.0 

- Mach Numbers for Detailed Output: 0.0, 0.5, 0.5, 0.57, 0.7, 0.7 

- Number of Altitude/Mach Number Combinations without the 
Afterburner lit: 6 

- Engine Type Indicator: 2 

- Afterburner Indicator: 0 

- Ductbumer Indicator: 0 

- Nozzle Type Indicator: 0 

- Enter "0" to Continue 

• Weights Page 1: 

- Wing Slope: 1.1 

- Fuselage Slope: 1.2 

- Horizontal Tail: 1.2 

- Vertical Tail: 1.0 

- Nacelles: 2.018 

- Landing Gear: 0.9 

- Engines: 0.897 

- Fuel System: 1.0 

- Hydraulics: 1.3 

- Enter "0" to Continue 

• Weights Page 2; 

- Electrical System: 1.0 

- Avionics: 1.0 

- Instrumentation: 1.0 

- Environmental System: 1.0 

* Passenger Accommodations: 1.0 

- APU: 1.0 

- Flight Controls: 1.37 

- Crew Acconunodations: 1.0 

- Payload: 14000.0 

- Enter "0" to Continue 

• Weights Page 3: 

- Wing Pivot Factor: 0.0 

- External Tank Factor: 0.0 

- Maximum Mach Niunber: 0.7 

- Oblique Wing Material Density: N/A 

- Obhque Wing Allowable Stress: N/A 

- Wing Weight Equation: 0 

- Oblique Wing Weight Equation: 0 
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- Tail Indicator: 0 

- Body Equation: 1 

- Wing Weight Technique: 3 

• Estimate of Take-off Gross Weight: 60000.0 

- Enter "0" to continue 

• Weights Page 4: 

- Weight of Ammunition: 1000.0 

- Weight of Bombs: 1848.0 

- Weight of Missiles: 0.0 

- Weight of External Tanks: 0.0 

- Enter "0" to continue 


The ACSYNT data file is complete. The main NPSASP menu is now 
presented. Option (2), run ACSYNT, should now be selected. Input the name 
of the data file (AlO) when requested. This simple analysis problem will take 
about 4 minutes to complete. 

If everything was entered correctly the output file should appear like the 
one on pages 81-109. If a value was entered incorrectly and ACSYNT crashes, 
ensure that the foiu* commands given on page 6 are executed prior to running 
CREATE again. 

C. OUTPUT EVALUATION 

The output file from ACSYNT has the same name as the input file (AlO), 
but the extension is ".OUT" instead of ".ACS", and it will appear with some 
other files in the root directory. The output file may be viewed on the terminal 
screen or printed out. If it is printed out, the wide tractor printer should be 
used as the printout is 130 columns wide in places. 
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The important variables are defined within the foUowing sections. 
Definitions of other variables can be found in Reference 4. 

The first 4 pages of the output deal with the control structure that 
ACSYNT will use for this analysis. This structure is established within 
CREATE and will change depending on the analysis method selected. The 
final page is a summary of the more valuable results. 

1. (Geometry Output 

Page 85 is a print out of the variables input to the Geometry modiile. 
Some of these values are those input to CREATE and others are set internally. 
Page 86 defines the initial fuselage using the input values. The pods are not 
shown on the initial output. "X" represents the fuselage length (measured 
from the nose), "R" is the radius, and "AREA" is the area of the cross-section 
at location 'X". Additional information is at the bottom of page 86 concerning 
fuselage volume and stirface area. Page 87 shows the initial dimensions of the 
aircraft surfaces. This is a valuable means for ensiuing that the design 
geometry is correct. 

The final output from the Geometry section begins on page 92. The 
pod (nacelle) information now appears. The final dimensions of the planar 
sxirfaces on page 93 shows the calculated values for the horizontal and vertical 
tail areas, re-sized based on the sizing fraction as requested. 
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2. Trajectory Output 


The initial Trajectory data appears on page 88 with the output 
beginning on page 94. Notice that the ending altitudes (given by "H") are 
hi^er than requested due to the aircraft climbing slightly as fuel is burned off 
This can be prevented by using a "-1" for the ending altitude. Following the 
mission output is a printout of the combat parameters for 1 g fli^t, sustained 
flight and instantaneous. The ouput variables are: 


* M: Mach Number 

SFC(I): Installed Specific Fuel Consximption 
SFC(U): Uninstalled SFC 
H: Altitude (ft) 

THRUST(I): Installed Thrust 
THRUST(U): Uninstalled Thrust 
CL: Lift Coefficient 
CD: Drag Coefficient 

CDINST: Engine Installation Drag Coefficient 
ALPHA: Angle of Attack 
GAMMA: Climb Angle (deg) 

WFUEL: Fuel burned for that Phase 
W: Aircraft Weight at end of Phase 
TIME: Phase Fhght Time (sec) 

WA: Engine Airflow (Ib/sec) per engine 
PR: Pressure Recovery 
VEL: Velocity in ft/sec 
Q: Dynamic Pressure 
X: Phase Distance (nm) 

WFTOl: Warm-up and Taxi Fuel 
WFT02: Take-off Fuel 
PS: Specific Excess Power 
NZ: Normal Load Factor 
TDOT: Turning Rate (deg/sec) 

RADIUS: Radius of Turn 
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3. Aerodynamics Output 

The Aerodynamics output begins on page 95. There are four 
separate sections that match to the four altitude/Mach number combinations 
that were requested for the detailed aerodynamics output. Under EXTERNAL, 
only the EXTRA (drag due to additional items) is output. The drag due to 
bombs, stores and tanks are computed but not shown. Most of the terms are 
self explanatory. The "Zone" refers to the internal calculation method used. 

4. Propulsion Output 

The Propulsion output on page 98 is quite detailed. All of the 
variables are defined at the beginning of the section. The six sections correlate 
with the six altitude/Mach number combinations requested. 

5. Weights Output 

The calculated values shown on page 107 include the slope factors 
that were selected. If the weight shown is too high or low, adjust the slope to 
bring the value into range. The calculated weight was the weight computed 
for the most recent pass through the mission and the estimated weight is the 
next estimate. Since the two values agree within .0001 (.01%) ACSYNT 
terminated the nm. 
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6. Navy Output 

The output from the Navy module (page 108) is clear cut. The 
rntnimiim wind over the deck requirements for launch is based on 1.1 times the 
stall speed minus the liftoff speed. The landing requirements are similarly 
based. Notice the high during landing do to the larger flap setting. 

7. Convergence Information 

The aircraft convergence information begins on the bottom of page 
90. Error messages from each module can normally be found in this section. 
In this case, two different warnings are present. The first indicates that the 
combat load factor that was input during the combat phase (5 g’s) is too much 
for the design to handle for a sustained period. ACSYNT automatically 
decreased it to a sustainable level of 4.0 g’s (page 95). The second error, near 
the bottom of page 91, indicates that there is insufficient thrust if an engine 
is lost off the catapult. This is verified in the Navy output. 

D. EXAMPLE ONE COMPLETION 

After ACSYNT completes its run, it does not update the aircraft data file 
with the final numbers. This means that the design must be re-converged if 
the same file is run again. To establish the data file as converged, it must be 
updated. In particular, the final value for the gross weight miist be input 
(47121 lbs. Weights section), the mission fuel required should be updated 
(11443 lbs, Fuselage section), the combat g loading should be reduced from 5.0 


78 





to 4.0 (Trajectory combat phase), the areas for the horizontal and vertical tails 
should be updated (118.4 and 54.1, respectively) and the sizing flag should be 
changed to "F". To accomplish this, run CREATE again and perform the 
following steps: 

• Select item (1) (Open a Previously Created File) 

* No change to Analysis Method. 

• Select (3) Bomber 

* No change to Module Select Menu 

* No change to the m axi mum weight 

• Select (1), change (geometry module 

• No change to Geometry Selection Menu 

• Skip past the Wing. 

* Update the horizontal tail and vertical tail ( areas and sizing flag) 

* Skip by the fuselage pods 

* Change the mission fuel weight estimate on the Fuselage Geometry Menu 
to the new value 

* Skip past the Crew Cockpit and Fuselage Fuel Bays. 

* Select (1), change Trajectory module 

• Skip the first 3 pages of the Trajectory data. 

• Select (1), change Trajectory phases. 

• Change the ending altitudes to -1 to prevent the slow climb. Change the 
g loading during combat to 4.0 
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• No changes to the Aerodynamics or Propulsion modtdes. 

• Select (1), Change Weights module 

• Skip to page 3 of the Weights data and input the new Take-off gross 
weight estimate (47121.0) 

• Skip the last Weights page and exit. 

The Simple Analysis Method of the A-10 is now complete. Sensitivity and 
Optimization studies may now be performed. If the data file is nm through 
ACSYNT again, a sUghtly different answer may be output for the final gross 
weight due to the different starting value. This new value is typically within 
a few pounds of the first value and is not significant. 
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o o o o n 


CCCCCCC 0000000 PPPPPPP EEEEEEE SSSSSSS 

0 0 P P E S 

0 0 P P E S 

0 0 PPPPPPP EEEE SSSSSSS 

OOP E 

OOP E 

CCCCCCC 0000000 P EEEEEEE SSSSSSS 


CONTROL PROGRAM 
FOR 

ENGINEERING SYNTHESIS 


TITLE 

A-10 THUNDERBOLT 
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TITLE; 

A-10 THUNDERBOLT 


CONTROL PARAMETERS; 

CALCULATION CONTROL, NCALC = 1 
NUMBER OF GLOBAL DESIGN VARIABLES, NDV = 0 
NUMBER OF SENSITIVITY VARIABLES, NSV - 0 
NUMBER OF FUNCTIONS IN TWO-SPACE, N2VAR = 0 
NUMBER OF APPROXIMATING VAR. NXAPRX = 0 
INPUT INFORMATION PRINT CODE, IPNPUT = 1 
DEBUG PRINT CODE, IPDBG = 0 


CALCULATION CONTROL, NCALC 
VALUE MEANING 

1 SINGLE ANALYSIS 

2 OPTIMIZATION 

3 SENSITIVITY 

4 TWO-VARIABLE FUNCTION SPACE 

5 OPTIMUM SENSITIVITY 

6 APPROXIMATE OPTIMIZATION 


* * ESTIMATED DATA STORAGE REQUIREMENTS 


INPUT 

REAL 

EXECUTION 

AVAILABLE 

INPUT 

INTEGER 

EXECUTION 

9 

9 

5000 

1 

1 


AVAILABLE 

1000 
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AAAAAAA 
A A 

A A 

AAAAAAA 
A A 

A A 

A A 


ccccccc 

c 

c 

c 

c 

c 

ccccccc 


sssssss 

s 

s 

sssssss 

s 

s 

sssssss 


Y Y 
Y Y 
Y Y 

Y 

Y 

Y 

Y 


N N 

NN N 

N N N 

N N N 

N N N 

K NN 

N N 


T 

T 

T 

T 

T 

T 


NASA-AMES PROGRAM 
FOR 

AIRCRAFT SYNTHESIS 
NAVAL POSTGRADUATE SCHOOL VERSION 


TITLE 

A-10 THUNDERBOLT 

AIRCRAFT TYPE - BOMBER 
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TITLE: 

A-10 THUNDERBOLT 


AIRCRAFT TYPE - BOMBER 


CONTROL PARAMETERS: 

READ CONTROL, MREAD = 6 
EXECUTION CONTROL, MEXEC = 4 
WRITE CONTROL, MWRITE = 6 
NUMBER IDENTIFYING CONVERGENCE 

VARIABLE FOR CONVERGED VEHICLE, lOBJ = 570 
NUMBER IDENTIFYING COMPARISON 

VARIABLE FOR CONVERGED VEHICLE, JOBJ = 585 
SUMMARY OUTPUT PRINT CODE, IPSUM = I 
GLOBAL ERROR PRINT CODE, KGLOBP = 0 
GLOBAL CO^WON INITIALIZATION CODE, INIT = 0 
DEBUG PRINT CODE, IPDBG = 2 
GLOBAL PLOT CONTROL, IGPLT = 1 
DATA TRANSFER INFORMATION FILE, IRDDTR = 7 
DATA TRANSFER INFORMATION PRINT, IPDTR » 0 


VEHICLE CONVERGENCE INFORMATION: 
CONVERGENCE TOLERANCE, TOL = O.lOOOOE-03 
ESTIM WCALC VS WEXT SLOPE = 0.75000E+00 
BOUNDING WEIGHT, WGMAX « 0 . SOOOOE-fOS 


MODULE IDENTIFICATION NUMBERS: 

NUMBER MODULE 

1 GEOMETRY 

2 TRAJECTORY 

3 AERODYNAMICS 

4 PROPULSION 

5 STABILITY AND CONTROL 

6 WEIGHTS 

8 GLOBAL I/O 

10 NAVY 

11 SUMMARY OUTPUT 

14 TAKEOFF AND LANDING 


MODULES ARE CALLED FOR INPUT IN THE FOLLOWING ORDER: 
1 2 3 4 6 10 


MODULES ARE CALLED FOR EXECUTION IN THE FOLLOWING ORDER 
1 2 6-10 


MODULES ARE CALLED FOR OUTPUT IN THE FOLLOWING ORDER: 

1 2 3 4 6 10 

CALLING MODULE NUMBER 1 
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GEOMETRY DATA CARDS 
1*»* GEOMETRY DATA *** 
2 SWING 


3 

AR» 6.54, 

AREA* 506.00, 

DIHED* 7.00, 

4 

FDENWG= 48.62, 

LFLAPC*0.12, 

SWEEP* 0.00 

5 

SWFACT=0.99, 

TAPER=0.66, 

TCROOT=0.16, 

6 

TCTIP=0.13, 

TFLAPC*0.35, 

WFFRAC=0.19, 

7 

XWING=0.47, 

ZROOT=-1.00, 

KSWEEP=0, 

8 

OUTCOD=2, 



9 

SEND 



10 

SHTAIL 



11 

AR» 2.99, 

AREA* 110.00, 

CVHT=1.00, 

12 

HTFRAC=0.234, 

SWEEP* 0.00, 

SWFACT=1.10, 

13 

TAPER=0.99, 

TCROOT=0.13, 

TCTIP=0.13, 

14 

XHTAIL=0.97, 

ZROOT=0.00, 

KSWEEP=0, 

15 

OUTCOD=2, 

SIZIT=T, 


16 

SEND 



17 

SVTAIL 



18 

AR= 1.74, 

AREA* 50.00, 

CVVT*0.10, 

19 

SWEEP* 0.00, 

SWFACT*1.10, 

TAPER*0.61, 

20 

TCROOT=0.13, 

TCTIP=0.12, 

VTFRAC=0.107 

21 

VTNO-2.0, 

XVTAIL*0.97, 

YROOT*0.00, 

22 

ZROOT=-.90, 

KSWEEP*0, 

OUTCOD=2, 

23 

SI2IT=T, 



24 

SEND 



25 

SFPOD 



26 

DIAM* 4.88, 

LENGTH* 10.89, 

SOD* 0.20, 

27 

THETA* 0.00, 

X=0.6, 

OUTCOD=2, 

28 

SYMCOD=0, 



29 

SEND 



30 

SFUS 



31 

BDMAX- 5.26, 

BODL* 53.33, 

DRADAR* 0.00 

32 

FRAB* 5.50, 

FRATIO* 0.00, 

FRN* 1.94, 

33 

LRADAR* 0.00, 

SFFACT* 1.00, 

WALL* 0.00, 

34 

WFUEL* 12000.0 

,OUTCOD*2, 

ITAIL*!, 

35 

SEND 



36 

SCREW 



37 

LENGTH* 0.00, 

WIDTH* 0.00, 

NCREW* 1, 

38 

OUTCOD-2, 

TAND*T, 


39 

SEND 



40 

SFUEL 



41 

DEN=48.62, 

FRAC=1.00, 

WFUEL* 0 

42 

OUTCOD=2, 



43 

SEND 



END 

t OF GEOMETRY DATA 

CARDS 



43 CARDS READ 


REW SEATING REQUIREMENTS 


NUMBER OF CREW. 1.0 

TANDEM SEATING. T 

CREW LENGTH REQUIRED. 0.0 

CREW WIDTH REQUIRED. 3.5 
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NASA/AMES A C S Y N T “INITIAL OUTPUT** 
FUSELAGE DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

1.07 

0.78 

1.92 

2.13 

1.26 

4.98 

3.20 

1.63 

8.36 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

e.40 

2.35 

17.36 

7.47 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.80 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

18.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21.30 

28.80 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

38.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 



•*FUSELAGE 

MAX. DIAMETER... 

5.260 

FINENESS 

RATIO.. 

10.139 

SURFACE 

AREA.... 

702.864 

VOLUME.. 


809.360 
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NASA/AMES A C S Y N T »*INITIAL OUTPUT** 

DIMENSIONS OF PLANAR SURFACES 

WING U.TAIL V.TAIL CANARD UNITS 

PLAN AREA. 506.0 110.0 50.0 C.O (SQ.FT.) 

SURFACE AREA. 1012.4 173.0 94.3 0.0 (SQ.FT.) 

VOLUME. 4 64.5 60.7 24.1 0.0 (CU.FT.) 

SPAN. 57.526 18.136 9.327 0.000 (FT.) 

L.E. SWEEP. 0.000 0.000 0.000 0.000 (DEG.) 

C/4 SWEEP. -1.794 -0.096 -3.982 0.000 (DEG.) 

T.E. SWEEP. -7.140 -0.385 -15.559 0.000 (DEG.) 

ASPECT RATIO . 6.540 2.990 1.740 0.000 

ROOT CHORD. 10.598 6.096 6.659 0.000 (FT.) 

ROOT THICKNESS. 20.347 9.510 10.388 0.000 (IN.) 

ROOT T/C . 0.160 0.130 0.130 0.000 

TIP CHORD. 6.994 6.035 4.062 0.000 (FT.) 

TIP THICKNESS. 10.911 9.415 5.849 0.000 (IN.) 

TIP T/C . 0.130 0.130 0.120 0.000 

TAPER RATIO . 0.660 0.990 0.610 0.000 

MEAN AERO CHORD_ 8.919 6.065 5.465 0.000 (FT.) 

LE ROOT AT. 22.416 45.634 45.071 0.000 (FT.) 

C/4 ROOT AT. 25.065 47.158 46.736 0.000 'FT.) 

TE ROOT AT. 33.013 51 .730 51.730 0.000 (FT.) 

LE M.A.C. AT. 22.416 45.634 45.071 0.000 (FT.) 

C/4 M.A.C. AT. 24.645 47.151 46.437 O.OCC (FT.) 

TE M.A.C. AT. 31.335 51.700 50.536 0.000 (FT.) 

y M.A.C. AT. 13.400 4.526 4 .287 0.000 

LE TIP AT. 22.416 45.634 45.071 0.000 (FT.) 

C/4 TIP AT. 24.164 47.143 46.087 0.000 (FT.) 

TE TIP AT. 29.410 51.669 49.133 0.000 (FT.) 

ELEVATION. -2.630 0.000 -2.367 0.000 (FT.) 

VOLUME COEFF. 0.54 9 0.037 0.000 

EXTENSIONS 

Scra)<e Rear Extension 

Centroid location at. 0.000 0.000 

Area. 0.000 0.000 

Wetted Area. 0.000 0.000 

Volume. 0.000 0.000 

Sweep Angle. 0.000 

FUEL TANKS 
TANK VOLUME WEIGHT DENSITY 

WING 84. 4103. 48.62 

FUS#1 0. 0. 48.62 

FUS#2 0. 0. 50.00 

TOTAL 4103. 

MISSION FUEL REQUIRED= 0. 

AVAILABLE FUEL VOLUME IN WING= 444. 

AIRCRAFT WEIGHT = 0.000 Lbs. 

AIRCRAFT VOLUME = 1358.592 Cu.Ft. 

AIRCRAFT DENSITY = 0.000 Lbs./Cu.Ft. 

CASE= 4 


CALLING MODULE NUMBER 2 
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TRAJECTORY INPUT 


TIMTOl =5.0 
TIMT02 « 2.0 
FRFORE =0.05 
DESLF =, 7.00 
ULTLF =11.25 
RANGE = 1000. 

WFOEL = 11130. 

WFEXT = 0. 

WFTRAP = 100. 

FWGMAX > 1.200 

MMPROP = 1 


MENDUR 

S 

0. 

NCRUSE 

QMAX 


700. 

IPSIZE 

XDESC 


80.0 

IPSTOI 

?«FUEL 

= 

1.000 

IPST02 

CRMACH 

= 

0.450 

IBREG 

WKLAND 

s 

0.570 

lENDUR 

FLFAC 

= 

0.600 

IPRINT 

DECEL 

s 

0.250 

KERROR 

NLEGCL 

s 

0 

NLEGCR 

TOL 

= 

0.001 

MILCOM 


= 

4 

IPLOT 

- 

0 

S = 

-3 

HMINP 

= 

0 

= 

5 

HMAXP 

= 

40000 

s 

2 

DELHP 

= 

4000 

= 

0 

SMMINP 

= 

0.300 

= 

0 

SMMAXP 

= 

0.900 

s 

0 

DELMP 

= 

0.100 

s 

2 

WCOMBP 

= 

0 

= 

0 

NLEGLO 

= 

0 

= 

0 

NMISS 

= 

1 



NCODE 

= 

0 


MISSION 1 


MACH NO. ALTITUDE HORIZONTAL NO. 

PHASE START END START END DIST TIME TURN 


CLIMB 

0.00 

0.00 

100 

CRUISE 

0.50 

0.50 

5000 

CRUISE 

0.50 

0.50 

100 

COMBAT 

0.60 

0.60 

100 

CRUISE 

0.50 

0.50 

100 

CLIMB 

0.00 

0.00 

100 

CRUISE 

0.50 

0.50 

5000 

LOITER 

0.27 

0.27 

500 


5000 

0.0 

0.0 

0.0 

5000 

230.0 

44.0 

0.0 

100 

40.0 

8.0 

0.0 

100 

0.0 

30.0 

0.0 

100 

40.0 

8.0 

0,0 

5000 

0.0 

0.0 

0.0 

5000 

230.0 

44.0 

0.0 

500 

10.0 

20.0 

0.0 


VIND 

"G"S 


0.0 

0.0 

0.0 

5.0 

0.0 

0.0 

0.0 

0.0 


WKFUEL M IP IX W B A P 


1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 
1.0000 


12 0 
14 0 

14 0 

13 0 

14 0 

12 0 
14 0 

14 0 


0 0 0 0 
0 0 0 0 
0 0 0 0 
0 110 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 


CALLING MODULE NUMBER 3 
CALLING MODULE NUMBER 4 
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PROPULSION INPUT 
VERSION 04-76 


•** PROPULSION DATA *** 


AENDIA 

S 

4.350 

AENLE 

= 

8.330 

AENWT 

= 

1478.000 

ALTI 

s 

0.000 

AM 

= 

0.000 

ATURB 

= 

0.385 

AENTW 

s 

0.000 







AUAENG 

K 

0.000 

AWAENG 

= 

0.157 

BA 


6.230 

DELPR 

S 

0.000 

DELT57 

= 

100.000 

DEPWCC 

= 

2.000 

DIAl 

E 

3.860 

EABl 

= 

0.750 

EBl 

B 

0.870 

EDI 

= 

0.750 

ETACl 

S 

0.800 

ETAFl 

B 

0.900 

ETATl 

=r 

0.920 

HTR 

- 

0.550 

HVF 

•= 

18600.000 

MACHl 


1.000 

MACH2 

= 

1.100 

PCDFAC 

B 

1.000 

POSA 

= 

29.920 

PRFD 

s 

1.510 

PWCC 

B 

100.000 

PllPl 

s 

1.396 

P2P1 

= 

21.000 

RlOA 

= 

-1.000 

R32 

s 

0.970 

R54 

= 

0.920 

R54N 

B 

0.880 

R711 

ss 

0.980 

R711N 

= 

0.820 

SCPR 

S 

1.240 

SFADP 

= 

1.000 

SFADSP 

s 

1.000 

SFAOXP 

B 

1.000 

SFBEP 


1.000 

SFBPP 


1.000 

SFBTP 

B 

1.000 

SFDIVP 

= 

1.000 

SFINSP 

= 

1.000 

SFIP 

B 

1.000 

SFSFCl 

S 

1.000 

SFSFC2 


1.000 

SFSFC3 

B 

1.000 

SMI 


0.500 

SODG 


2.000 

TOSA 

B 

518.000 

TR 

= 

520.000 

TWAB 

= 

25100. 

TWOAB 

B 

9065. 

TWTO 

S 

0.500 

T3 

= 

2697. 

T5M 

S 

3400. 

T51 

S 

0. 

T7M 

= 

3400. 

T71 

B 

0. 

VCl 

S 

0.980 

WCWAl 


0.000 

XMDES 

= 

0.850 

XMT 

S 

0.850 

YREN 

= 

75. 

FRET 

B 

0.000 

FRPN 

= 

0.000 

RDIAM 

= 

1.150 

RLENG 

= 

1.307 


IPR = 3 IPRINT = 0 IPLOT = 0 

KERROR = 0 KODE = 2 KT5 = 0 

KT7 =» 0 MINPR = 1 NAB = 6 

NOZZ = 0 NPROP = 6 NSUMM = 15 

lENG = 2 (TF30) 


THESE VARIABLES ARE USED BY TABLE LOOK DP 

ESF = 1.000 NDTAIL = 0 IPDBUG « 0 IIPRINT = 0 


ALTD = 0. 0. 5000. 5000. 5000. 10000. 

XMACH - 0.000 0.500 0.500 0.570 0.700 0.700 

XMPRI = 0.000 0.300 0.600 0.900 1.200 4.000 

XPRI = 1.000 1.000 1.000 1.000 1.000 1.000 

XMPRIl = 0.000 0.000 0.000 0.000 0.000 0.000 0.000 

0.000 0.000 0.000 

XPRIl = 0.000 0.000 0.000 0.000 0.000 0.000 0.000 

0.000 0.000 0.000 

XMPRI2 = 0.000 0.000 0.000 0.000 0.000 0.000 0.000 

0.000 0.000 0.000 

XPRI2 = 0.000 0.000 0.000 0.000 0.000 0.000 0.000 

0.000 0.000 0.000 

CALLING MODULE NUMBER 6 
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INITIAL WEIGHTS INPUT DATA 
ACSYNT MODULE NUMBER 6 

AIRCRAFT TYPE: BOMBER 
TITLE: *** WEIGHTS DATA *** 


CONTROL OPTIONS 


IPRINT 

s 

1 IGRAPH 

= 1 

ITAIL 

= 0 KERROR = 

0 


IDELT 

s 

0 lOBLIQ 

= 0 

KWING 

= 3 KBODY = 

1 


K1 

S 

1.00 K2 

= 1.00 

K3 

= 1.0 K4 

5= 

1.0 


K5 

s 

1.00 K6 

= 1.00 

AFMACH 

1 = 0.70 MAXIT = 

1 


KB 

s 

0.00 KPl 

= 0.00 

KP2 

= 0.00 




FR 

3S 

1.00 TECHG 

= 1.00 

WGTO 

= 60000 




STRESS 

S 

30000. 


DENS 

= 0.056 

FLIFTF =0 

.000 

TECHI 

= 

1.00 1.00 

1.00 

1 .00 

1.00 1.00 

1.00 

1.00 

1.00 

SLOPE(1) 

3= 

1.10 1.20 

1.20 

1.00 

2.02 0.90 

0.90 

1.00 


SLOPE(9) 

s 

1.30 1.00 

1.00 

1.00 

1.00 1.00 

1.00 

1.37 

1.00 


INITIAL ESTIMATES 
IF CODE - 1, WEIGHT IS FIXED 


QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 


15600. 

0 

WAIRC 

s 

360. 

0 

WAPU 

s 

0. 

0 

WAN04UN 

s 

1000. 

1 

WARM 

= 

0. 

0 

WBAG 

= 

0. 

0 

WBBl 

s 

0. 

0 

WBODY 

= 

6600. 

0 

WCAND 

= 

0. 

0 

WCARGO 

= 

0. 

0 

WCREW 


360. 

0 

WE 

s 

7800. 

0 

WELT 

= 

2520. 

0 

WEP 

= 

840. 

0 

WETANK 

s 

0. 

0 

WFEQ 


7200. 

0 

WFS 

* 

780. 

0 

WCA 

= 

840. 

0 

WGEAR 

S 

360. 

0 

WHDP 

s 

30. 

0 

WHT 

s 

1200. 

0 

WINST 

s 

180. 

0 

WLG 

s 

1800. 

0 

WMISS 

s 

0. 

0 

WNA 

s 

1440. 

0 

WPA 

= 

0. 

0 

WPASS 

s 

0. 

0 

WPL 

s 

14000, 

1 

WPS 

s 

8400. 

0 

WSC 


1800. 

0 

WTSUM 

= 

60000. 

0 

WVT 

= 

540. 

0 

WWING 

* 

4800. 

0 

WBOMB 

s 

1848. 

1 

WENVP 

* 

0. 

0 

WPIV 

= 

0. 

0 

WLIFTF 

= 

0. 

0 

WBB2 

= 

0. 

0 


CALLING MODULE NUMBER 10 


INPUT VALUES TO NAVY MODULE 

CLMAX =1.80 
SIGMA = 0.94449 
VSOUND = 679.6 

ALT = 0. 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT = 0.54000E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 
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5.000000 


WARNING ; Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT = 0.48771E+05 

SLOPE OF WCALC VS WEST LINE = 0.75000E+00 

ESTIMATED GROSS WEIGHT = 0.37800E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT = 0.44878E+05 

SLOPE OF WCALC VS WEST LINE = 0.30000E+00 

ESTIMATED GROSS WEIGHT = 0.47117E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT = 0.47118E+05 


* * * END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 
CALLING MODULE NUMBER 1 


5.000000 


5.000000 
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NASA/AMES 

A C 

S y N T **FINAL 

OUTPUT** 




FUSELAGE DEFINITION NACELLE 

DEFINITION NACELLE 

LOCATION 



X 

R 

AREA X-XNOSE 

R AREA X 

Y 

Z 


0.00 

0.00 

0.00 0.00 

2.18 14.92 32.00 

5.25 

0.00 


1.07 

0.78 

1.92 2.72 

2.18 14.92 32.00 

-5.25 

0.00 


2.13 

1.26 

4.98 8.17 

2.18 14.92 




3.20 

1.63 

8.36 10.89 

2.18 14.92 




4.27 

1.93 

11.69 





5.33 

2.17 

14.74 





6.40 

2.35 

17.36 





7.47 

2.49 

19.43 





8.53 

2.58 

20.86 





9.60 

2.62 

21.62 





10.67 

2.63 

21.73 




* 

11.73 

2.63 

21.73 





12.80 

2.63 

21.73 





13.87 

2.63 

21.73 





14.93 

2.63 

21.73 





16.00 

2.63 

21.73 





17.07 

2.63 

21.73 





18.13 

2.63 

21.73 





19.20 

2.63 

21.73 





20.27 

2.63 

21.73 





21.33 

2.63 

21.73 





22.40 

2.63 

21.73 





23.47 

2.63 

21.73 





24.53 

2.63 

21.73 





25.60 

2.63 

21.67 





26.67 

2.62 

21.53 





27.73 

2.60 

21.30 





28.80 

2.58 

20.98 





29.86 

2.56 

20.58 





30.93 

2.53 

20.09 





32.00 

2.49 

19.52 





33.06 

2.45 

18.87 





34.13 

2.40 

18.15 





35.20 

2.35 

17.35 





36.26 

2.29 

16.49 





37.33 

2.23 

15.55 





38.40 

2.15 

14.57 





39.46 

2.07 

13.52 





40.53 

1.99 

12.43 





41.60 

1.90 

11.30 





42.66 

1.80 

10.14 





43.73 

1.69 

8.95 





44.80 

1.57 

7.75 





45.86 

1.44 

6.55 





46.93 

1.31 

5.36 





48.00 

1.16 

4.21 





49.06 

0.99 

3.10 





50.13 

0.81 

2.08 





51.20 

0.61 

1.16 





52.26 

0.37 

0.42 





53.33 

0.00 

0.00 







•‘FUSELAGE** 

**PODS** 




MAX. DIAMETER_ 

5.260 

4.359 



• 

FINENESS 

RATIO... 

10.139 





SURFACE AREA. 

702.864 

149.095 (EACH) 




VOLUME... 


809.360 
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NASA/AMES A C S Y 

N T 

“FINAL 

OUTPUT* 

* 


DIMENSIONS OF PLANAR 

SURFACES 




WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN AREA. 

506.0 

118.4 

54.1 

0.0 

(SQ.FT.) 

SURFACE AREA. 

1012.4 

189.0 

102.8 

0.0 

(SQ.FT.) 

VOLUME. 

464.5 

67.8 

27.1 

0.0 

(CU.FT.) 

SPAN. 

57.526 

18.816 

9.706 

0.000 

(FT.) 

L.E. SWEEP. 

0.000 

0.000 

0.000 

0.000 

(DEG.) 

C/4 SWEEP. 

-1.794 

-0.096 

-3.982 

0.000 

(DEG.) 

T.E. SWEEP. 

-7.140 

-0.385 - 

■15.559 

0.000 

(DEG.) 

ASPECT RATIO . 

6.540 

2.990 

1.740 

0.000 


ROOT CHORD. 

10.598 

6.324 

6.929 

0.000 

(FT.) 

ROOT THICKNESS. 

20.347 

9.866 

10.8x0 

0.000 

(IN.) 

ROOT T/C . 

0.160 

0.130 

0.130 

0.000 


TIP CHORD. 

6.994 

6.261 

4.227 

0.000 

(FT.) 

TIP THICKNESS. 

10.911 

9.768 

6.087 

0.000 

(IN.) 

TIP T/C . 

0.130 

0.130 

0.120 

0.000 


TAPER RATIO . 

0.660 

0.990 

0.610 

0.000 


MEAN AERO CHORD.... 

8.919 

6.293 

5.687 

0.000 

(FT.) 

LE ROOT AT. 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4 ROOT AT. 

25.065 

46.987 

46.533 

0.000 

(FT.) 

TE ROOT AT. 

33.013 

51.730 

51.730 

0.000 

(FT.) 

LE M.A.C. AT. 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4 M.A.C. AT. 

24.645 

46.979 

46.223 

0.000 

(FT.) 

TE M.A.C. AT. 

31.335 

51.699 

50.488 

0.000 

(FT.) 

Y M.A.C. AT. 

13.400 

4.696 

4.461 

0.000 


LE TIP AT. 

22.416 

45.406 

44.801 

0.000 

(FT.) 

C/4 TIP AT. 

24.164 

46.971 

45.857 

0.000 

(FT.) 

TE TIP AT. 

29.410 

51.667 

49.028 

0.000 

(FT.) 

ELEVATION. 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME COEFF. 


0.586 

0.040 

0.000 


E X T E N S 

IONS 






Strake Rear Extension 


Centroid location at. 


0.000 

0.000 



Area. 


0.000 

0.000 



Wetted Area. 


0.000 

0.000 



Volume. 


0.000 

0.000 



Sweep Angle. 


0.000 




FUEL T 

A N K S 





TANK VOLUME 

WEIGHT DENSITY 



WING 84. 

4103. 

48, 

,62 



FUS#1 151. 

7341. 

48, 

,62 



FUS#2 0. 

0. 

50, 

,00 



TOTAL 

11443. 






MISSION FUEL REQUIRED= 11443. 
AVAILABLE FUEL VOLUME IN WING= 444. 


AIRCRAFT WEIGHT = 
AIRCRAFT VOLUME = 
AIRCRAFT DENSITY = 
CASE= 4 

CALLING MODULE 


47116.801 Lbs. 
1368.732 Cu.Ft. 

34.424 Lbs./Cu.Ft. 

NUMBER 2 
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TRAJECTORY OUTPUT 

MISSION 1 (PAYLOAD = 14000. LB) 

PHASE M H CL ALPHA WFOEL TIME VEL 

SFC(I) THRUST(I) CD GAMMA W WA Q 

SFC(U) THRUST(U) CDINST L/D THR/THA PR X 

CLIMB 0.50 5000. 0.2887 2.43 103.8 0.92 551. 

0.58 11233. 0.0259 8.82 46668.0 307.73 311. 

CYCLE 0.57 0. 0.0009 11.15 2.00 1.00 5. 

CRUISE 0.50 6164. 0.2993 2.53 2413.8 42.55 546. 

0.84 3942. 0.0262 0.00 44254.2 245.97 297. 

CYCLE 0.81 4086. 0.0010 11.41 0.72 1.00 230. 

CRUISE 0.50 298. 0.2370 1.98 505.6 7.26 558. 

0.92 4541. 0.0245 0.00 43748.7 297.98 367. 

CYCLE 0.88 4715. 0.0009 9.68 0.72 1.00 40. 

COMBAT 0.60 100. 0.6475 5.49 3793.9 30.00 670. 

0.65 11737. 0.0435 0.00 37106.7 356.36 531. 

CYCLE 0.63 12018. 0.0010 14.90 1.94 1.00 198. 

CRUISE 0.50 334. 0.1987 1.64 500.4 7.26 558. 

0.94 4368. 0.0236 0.00 36606.3 297.13 367. 

CYCLE 0.90 4540. 0.0009 8.42 0.69 1.00 40. 

CLIMB 0.48 5000. 0.2466 2.08 77.8 0.70 525. 

0.57 11354. 0.0248 12.35 36528.5 303.76 282. 

CYCLE 0.56 0. 0.0009 9.96 2.00 1.00 3. 

CRUISE 0.50 6454. 0.2343 1.95 2345.1 42.57 546. 

0.88 3636. 0.0244 0.00 34183.4 242.72 295. 

CYCLE 0.85 3776. 0.0009 9.60 0.67 1.00 230. 

LOITER 0.27 500. 0.6370 6.13 717.6 20.00 301. 

0.83 2608. 0.0486 0.00 33465.8 248.41 106. 

CYCLE 0.81 2652. 0.0008 13.12 0.36 1.00 59. 
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FUEL SUMMARIES 


MISSION FUEL = 10803. 
RESERVE FUEL = 540. 
TRAPPED FUEL = 100. 

TOTAL FUEL •= 11443. 


TAKEOFF FUEL 
WFTOl = 120. 

WFT02 = 225. 


FUEL CARRIED : 
EXTERNALLY » 0. 

INTERNALLY = 11443. 


ADDITIONAL COMBAT PARAMETERS 


CONDITIONS 

PS 

NZ 

TDOT 

RADIUS 

ALPHA 

CL 

CD 

1 G FLIGHT 

86.2 

1.00 

0.00 

0. 

1.26 

0.163 

0.0227 

SUSTAINED 

0.0 

4.00 

10.68 

3594. 

5.49 

0.647 

0.0435 

MAX. INST. 

-199.0 

7.00 

19.07 

2012. 

10.34 

1.131 

0.0913 


COMBAT ENERGY = 0.155192E+06 


BLOCK TIME 
BLOCK RANGE 

TAKEOFF FIELD LENGTH(TOTAL RUN) 
LANDING FIELD LENGTH(TOTAL RUN) 
LANDING FIELD LENGTH(GROUND RUN) 
WEIGHT FOR LANDING CALCULATION 
LANDING THRUST TO WEIGHT RATIO 

TAKEOFF WEIGHT 
LANDING WEIGHT 
CALLING MODULE NUMBER 3 
Detailed Aerodynamics Output 


2.521 HOURS 
806.2 N. M. 
2769. FEET 
5266. FEET 
1740. FEET 
40651. POUNDS 
0.472 

47117. POUNDS 
33466. POUNDS 


Mac)i = 0.20 

Altitude = 0. 


Parasite Drag Induced Drag 


Friction 

.0162 

Alpha 

Cl 

Cd 

Body 

.0032 

o 

o 

0.005 

0.0263 

Wing 

.0077 

3.0 

0.323 

0.0319 

Stra)ces 

.0000 

6.0 

0.617 

0.0474 

H. Tail 

.0015 

0.0 

0.005 

0.0263 

V. Tail 

.0016 

9.0 

0.894 

0.0715 

Canard 

.0000 

12.0 

1.160 

0.1039 

Pods 

.0022 

15.0 

1.422 

0.1449 

Engine 

.0000 

18.0 

1.685 

0.1950 

Cowl 

.0000 

21.0 

1.953 

0.2555 

Boattall 

.0000 

24.0 

2.218 

0.3246 


L/D Cm e Cdtrim Deltrim Zone 


0.2 

0.048 

0.00 

0.0000 

0.0 

2 

10.1 

-.007 

0.91 

0.0000 

0.0 

2 

13.0 

-.062 

0.88 

0.0000 

0.0 

2 

0.2 

0.048 

0.00 

0.0000 

0.0 

2 

12.5 

-.119 

0.86 

0.0000 

0.0 

2 

11.2 

-.177 

0.84 

0.0000 

0.0 

2 

9.8 

-.238 

0.83 

0.0000 

0.0 

2 

8.6 

-.302 

0.82 

0.0000 

0.0 

2 

7.6 

-.367 

0.81 

0.0000 

0.0 

2 

6.8 

-.431 

0.80 

0.0000 

0.0 

2 


Interference 

.0058 

Wave 

.0000 

External 

.0043 

Tanlcs 

.0000 

Bombs 

.0000 


Slope Factors 

ClAlpha 0.0922 

Cdl-'.SAlpha 0.0228 


95 



Stores 

Extra 

Camber 


.0000 

.0043 

.0000 

.0263 


Mach 

Altitude 


Friction 

.0161 

Alpha 

Cl 

Cd 

L/D 

Cm 

e Cdtrim Deltrim Zone 

Body 

.0032 

0.0 

0.005 

0.0262 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0076 

3.0 

0.329 

0.0320 

10.3 

-.012 

0.92 

0.0000 

0.0 

2 

Strakes 

.0000 

6.0 

0.628 

0.0479 

13.1 

-.070 

0.89 

0.0000 

0.0 

2 

H. Tail 

.0015 

0.0 

0.005 

0.0262 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V. Tail 

.0016 

9.0 

0.909 

0.0726 

12.5 

-.129 

0.87 

0.0000 

0.0 

2 

Canard 

.0000 

12.0 

1.177 

0.1056 

11.1 

-.190 

0.85 

0.0000 

0.0 

2 

Pods 

.0022 

15.0 

1.438 

0.1470 

9.8 

-.253 

0.83 

0.0000 

0.0 

2 

Engine 

.0000 

18.0 

1.698 

0.1973 

8.6 

-.318 

0.82 

0.0000 

0.0 

2 

Cowl 

.0000 

21.0 

1.967 

0.2583 

7.6 

-.385 

0.81 

0.0000 

0.0 

2 

Boattail 

.0000 

24.0 

2.155 

0.9130 

2.4 

-.517 

0.25 

0.0000 

0.0 

3 


Interference 

Wave 

External 

Tanks 

Bombs 

Stores 

Extra 

Camber 


.0058 

.0000 

.0043 

.0000 

.0000 

.0000 

.0043 

.0000 


Slope Factors 
ClAlpha 
Cdl''. SAlpha 


0.0896 

0.0392 


Detailed Aerodynamics Output 


Mach 

Altitude 


0.60 

5000. 


Induced Drag 


Friction 

.0156 

Alpha 

Cl 

Cd 

L/D 

Cm 

e Cdtrim Deltrim Zone 

Body 

.0031 

0.0 

0.005 

0.0214 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0074 

3.0 

0.370 

0.0284 

13.0 

-.025 

0.95 

0.0000 

0.0 

2 

Strakes 

.0000 

6.0 

0.701 

0.0474 

14.8 

-.095 

0.92 

0.0000 

0.0 

2 

H. Tail 

.0014 

0.0 

0.005 

0.0214 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V. Tail 

.0016 

9.0 

1.003 

0.0759 

13.2 

-.164 

0.90 

0.0000 

0.0 

2 

Canard 

.0000 

12.0 

1.236 

0.2444 

5.1 

-.247 

0.33 

0.0000 

0.0 

3 

Pods 

.0021 

15.0 

1.447 

0.3612 

4.0 

-.326 

0.30 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.639 

0.5010 

3.3 

-.411 

0.27 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.805 

0.6610 

2.7 

-.499 

0.25 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.936 

0.8336 

2.3 

-.588 

0.22 

0.0000 

0.0 

3 


Interference .0058 
Wave .0000 

External .0000 

Tanks .0000 

Bombs .0000 

Stores .0000 

Extra .0000 

Camber .0000 


Slope Factors 

ClAlpha 0.0804 

Cdl'.SAlpha 0.0375 
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Mach = 0.70 
Altitude » 5000. 


Parasite Drag Induced Drag 


Friction 

.0154 

Alpha 

Cl 

Cd 

L/D 

Cm 

e Cdtrim Deltrim Zone 

Body 

.0031 

0.0 

0.005 

0.0212 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

Wing 

.0073 

3.0 

0.397 

0.0291 

13.6 

-.031 

0.96 

0.0000 

0.0 

2 

Strakes 

.0000 

6.0 

0.749 

0.0503 

14.9 

-.106 

0.94 

0.0000 

0.0 

2 

H. Tail 

.0014 

0.0 

0.005 

0.0212 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

V. Tail 

.0015 

9.0 

1.060 

0.1647 

6.4 

-.189 

0.38 

0.0000 

0.0 

3 

Canard 

.0000 

12.0 

1.284 

0.2608 

4.9 

-.267 

0.33 

0.0000 

0.0 

3 

Pods 

.0021 

15.0 

1.500 

0.3840 

3.9 

-.350 

0.30 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.608 

0.5556 

2.9 

-.402 

0.24 

0.0000 

0.0 

4 

Cowl 

.0000 

21.0 

1.701 

0.6924 

2.5 

-.486 

0.21 

0.0000 

0.0 

4 

Boattall 

.0000 

24.0 

1.771 

0.8377 

2.1 

-.572 

0.19 

0.0000 

0.0 

4 


Interference .0058 
Wave .0000 

External .0000 Slope Factors 

Tanks .0000 ClAlpha 0.0736 

Bombs .0000 Cdl'“.5Alpha 0.0376 

Stores .0000 

Extra .0000 

Camber .0000 


n .0212 

CALLING MODULE NUMBER 4 




ENGINE SUMMARY 


ENGINE DIAMETER - 4.35 FEET 

ENGINE LENGTH* 8.33 FEET 
ENGINE WEIGHT* 1478.00 POUNDS 
BYPASS RATIO = 6.23 

NO OF ENGINES PER AC * 2. 

A/C DRAG REF AREA * 506.00 SQ FEET 

INLET CAPTURE AREA PER ENG * 6.190 SQ FEET 

PWCC - PERCENT OF ENGINE CORRECTED AIRFLOW 
THRUST - ENGINE THRUST (POUNDS PER ENGINE) 

SFC » ENGINE SPECIFIC FUEL CONSUMPTION 

WTOT - ENGINE TOTAL AIRFLOW (LBS/SEC PER ENGINE) 

OV EF - ENGINE OVERALL EFFICIENCY 

PR EF - ENGINE PROPULSIVE EFFICIENCY 

TPR » INLET TOTAL PRESSURE RECOVERY (TO EN FACE) 

NPR * NOZZLE PRESSURE RATIO 

TIT - TURBINE INLET TEMPERATURE (DEG R) 

EGT • ENGINE EXHAUST GAS TEMPERATURE 

CPR - OVERALL COMPRESSOR PRESSURE RATIO 

THRUSTU- THRUST PER ENGINE IN LBS, W/0 INSTAL DRAG CORR 

SFCU * SFC,1/HR, W/0 INSTALLATION DRAG CORR 

ABYAC - FREESTREAM BYPASS FLOW AREA/AC 

ABLAC - FREESTREAM INLET BLEED FLOW AREA/AC 

ANOZ - AREA OF NOZZLE EXIT, FT**2 

BETA « NOZZLE BOATTAIL ANGLE IN DEGREES 

AO/AC - FREE STREAM TO CAPTURE AREA RATIO 

COINS - TOT INSTALLATION DRAG COEF PER A/C (SWING REF) 

COADD * ADDITIVE DRAG COEF PER A/C (SWING REF) 

CDSP - SUBSONIC SPILL DRAG COEFF PER A/C (SWING REF) 

CDBL - INLET BLEED DRAG COEF PER A/C (SWING REF) 

CDBP - INLET BYPASS DRAG PER A/C (SWING REF) 

CDAUX * AUX AIR SYSTEM DRAG COEF PER A/C (SWING REF) 
CDDIV * INLET BO. LAYER DIVERT DRAG PER A/C (SWING REF) 
CDBT - NOZZLE BOATTAIL DRAG COEF PER A/C (SWING REF) 
COINF * DRAG COEF OF BASE AREA BETWEEN NOZZLES (PER A/C) 

INSTALL DRAG COEF SCALE FACTORS 
SFINSP * 1.0000 

SFAOP * 1.0000 

SFAOSP * 1.0000 

SFBEP - 1.0000 

SFBPP * 1.0000 

SFAUXP - 1.0000 

SFDIVP » 1.0000 

SFIP * 1.0000 

SFBTP - 1.0000 
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MACH = 

0.000 

ALTITUDE = 

0. 

00 FEET 




PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD INF 

100.0 

9065. 

0.364 

290. 

0.000 

0.000 

1.000 

1.79 

2697. 

1540. 

22.49 


9065. 

0.364 

0.000 

0.000 

13.65 

11.17 






1000.000 

0.0004 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0004 

0.0000 


98.0 8296. 

0.355 

285. 

0.000 

0.000 1.000 1.84 

2570. 

1486. 

21.51 

8298. 

0.355 

0.000 

0.000 

13.65 11.84 




1000.000 

0.0004 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0004 

0.0000 


96.0 7495. 

0.348 279. 0.000 

0.000 1.000 1.92 

2447. 

1441. 

20.56 

7495. 

0.348 0.000 0.000 

13.65 12.66 




1000.000 

0.0004 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0004 

0.0000 


94.0 

6619. 

0.348 

273. 

0.000 

0.000 

1.000 

2.05 

2329. 

1405. 

19.64 


6619. 

0.348 

0.000 

0.000 

13.65 

13.59 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

92.0 

5582. 

0.362 

267. 

0.000 

0.000 

1.000 

2.25 

2214 . 

1380. 

18.75 


5582. 

0.362 

0.000 

0.000 

13.65 

14.62 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

90.0 

4076. 

0.431 

261. 

0.000 

0.000 

1.000 

2.54 

2105. 

1367. 

17.88 


4076. 

0.431 

0.000 

0.000 

13.65 

15.69 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 


88.0 2118. 

0.717 

256. 

0.000 

0.000 

.1.000 

2.52 

1999. 

1310. 

17.04 

2118. 

0.717 

0.000 

0.000 

13.65 

16.01 





1000.000 

0.0006 0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0006 

0.0000 


86.0 1872. 

0.694 

250. 

0.000 

0.000 1.000 2.22 

1898. 

1218. 

16.23 

1872. 

0.694 

0.000 

0.000 

13.65 15.68 




1000.000 

0.0005 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0005 

0.0000 


84.0 1624. 

0.677 244. 0.000 

0.000 1.000 1.95 

1802. 

1131. 

15.44 

1624 . 

0.677 0.000 0.000 

13.65 15.20 




1000.000 

0.0005 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0005 

0.0000 
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82.0 1375. 

0.668 238. 0.000 

0.000 1.000 1.70 

1709. 

1049. 

14.68 

1375. 

0.668 0.000 0.000 

13.65 14-49 




1000.000 

0.0005 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0005 

0.0000 


80.0 1114. 

0.678 232. 0.000 

0.000 1.000 1.48 

1621. 

971. 

13.95 

1114. 

0.678 0.000 0.000 

13.65 13.36 




1000.000 

0.0005 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0005 

0.0000 


78.0 827. 0.735 226. 0.000 

827. 0.735 0.000 0.000 

0.000 1.000 1.27 

13.65 11.28 

1536. 

897. 

13.24 

1000.000 0.0004 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0004 

0.0000 


76.0 458. 1.039 221. 0.000 

458. 1.039 0.000 0.000 

0.000 1.000 1.09 

13.65 5.40 

1456. 

828. 

12.56 

1000.000 0.0002 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0002 

0.0000 


MACH = 0.500 ALTITUDE = 0.00 FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

6143. 

0.594 

336. 

0.237 

0.622 

1.000 

1.79 

2697. 

1479. 

22.49 


6231. 

0.586 

0.000 

0.000 

13.65 

9.83 






1.270 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0004 


98.0 

5867. 

0.619 329. 0.228 

0.588 

1.000 

2.20 

2697. 

1572. 21.51 


5956. 

0.610 0.000 0.000 

13.65 

11.79 





1.244 

0.0010 0.0000 0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0006 0.0003 


96.0 

5127. 

0.630 

323. 

0.224 

0.586 1.000 2.30 2570. 

1526. 

20.56 


5216. 

0.619 

0.000 

0.000 

13.65 12.55 




1.219 

0.0010 0.0000 

0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0007 

0.0003 


94.0 

4349. 

0.655 316. 0.216 

0.571 1.000 2.46 2446. 

1488. 

19.64 


4439. 

0.642 0.000 0.000 

13.65 13.39 




1.194 

0.0010 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0007 

0.0002 


92.0 

3509. 

0.712 

309. 

0.200 

0.533 

1.000 

2.70 

2326. 

1460. 

18.75 


3599. 

0.694 

0.000 

0.000 

13.65 

14.32 






1.168 

0.0010 0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0008 

0.0002 


90.0 

2546. 

0.854 302. 0.168 

0.451 1.000 3.04 

2211. 

1445. 

17.88 


2637. 

0.825 0.000 0.000 

13.65 15.30 





1.143 

0.0010 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0008 

0.0002 


88.0 

1917. 

0.981 

296. 

0.148 

0.406 1.000 3.01 

2100. 

1384. 

17.04 


2008. 

0.936 

0.000 

0.000 

13.65 15.63 





1.117 

0.0010 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0008 

0.0001 
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86.0 

1648. 

0.977 289. 0.150 

0.4 30 

1.000 

2.66 

1994 . 

1288. 16.23 


1739. 

0.925 0.000 0.000 

13.65 

15.40 





1.092 

0.0010 0.0000 0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0008 0.0002 


64.0 

1383. 

0.986 282. 0.150 

0.459 1.000 2.34 

1892. 

1196. 15.44 


1474 . 

0.925 0.000 0.000 

13.65 15.08 




1.067 

0.0010 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0008 0.0002 


82.0 

1118. 

1.020 276. 0.147 

0.493 

1.000 

2.04 1795. 

1109. 

14.68 


1207. 

0.944 0.000 0.000 

13.65 

14.59 





1.041 

0.0010 0.0000 0.0000 

0.0000 0.0000 

0.0000 0.0000 

0.0008 

0.0002 


80.0 

852. 

1.101 

269. 

0.139 

0.533 

1.000 

1.77 

1702. 

1026. 

13.95 


939. 

0.999 

0.000 

0.000 

13.65 

13.88 






1.016 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 

78.0 

577. 

1.311 

262. 

0.121 

0.581 

1.000 

1.52 

1614 . 

94 9. 

13.24 


660. 

1.145 

0.000 

0.000 

13.65 

12.76 






0.990 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 

76.0 

280. 

2.122 

255. 

0.083 

0.621 

1.000 

1.30 

1530. 

876. 

12.56 


354 . 

1.675 

0.000 

0.000 

13.65 

10.73 






0.965 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0002 



MACH = 

0.500 

ALTITUDE = 

5000. 

00 FEET 




PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5370. 

0.595 

285. 

0.232 

0.596 

1.000 

2.03 

2697. 

1523. 

22.4 9 


5443. 

0.587 

0.000 

0.000 

13.65 

10.80 






1.270 

0.0009 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0004 

98.0 

4865. 

0.604 

279. 

0.229 

0.590 

1.000 

2.18 

2606. 

1510. 

21.51 


4939. 

0.595 

0.000 

0.000 

13.65 

11.76 






1.245 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0003 

96.0 

4246. 

0.614 

273. 

0.226 

0.588 

1.000 

2.28 

2481. 

1464 . 

20.56 


4320. 

0.604 

0.000 

0.000 

13.65 

12.50 






1.219 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0003 

94 .0 

3601. 

0.639 

268. 

0.218 

0.574 

1.000 

2.44 

2361. 

1428. 

19.64 


3675. 

0.626 

0.000 

0.000 

13.65 

13.35 






1.194 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0002 
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92.0 2904. 0.694 262. 0.202 0.535 1.000 2.68 2245. 1403. 18.75 

2979. 0.677 0.000 0.000 13.65 14.29 

1.168 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


90.0 2104. 0.834 256. 0.169 0.453 1.000 3.02 2134. 1389. 17.88 

2180. 0.805 0.000 0.000 13.65 15.28 

1.143 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


88.0 1582. 0.959 250. 0.149 0.407 1.000 2.99 2027. 1331. 17.04 

1658. 0.915 0.000 0.000 13.65 15.61 

1.118 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0001 


86.0 1359. 0.955 245. 0.151 0.432 1.000 2.65 1925. 1238. 16.23 

1435. 0.905 0.000 0.000 13.65 15.38 

1.092 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


84.0 1137. 0.966 239. 0.151 0.461 1.000 2.32 1827. 1149. 15.44 

1213. 0.906 0.000 0.000 13.65 15.04 

1.067 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


82.0 918. 1.000 233. 0.147 0.495 1.000 2.03 1733. 1065. 14.68 

992. 0.925 0.000 0.000 13.65 14.55 

1.041 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


80.0 697. 1.084 228. 0.139 0.536 1.000 1.76 1643. 986. 13.95 

769. 0.982 0.000 0.000 13.65 13.83 

1.016 0.0009 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0007 0.0002 


78.0 467. 1.302 222. 0.120 0.584 1.000 1.51 1558. 911. 13.24 

536. 1.134 0.000 0.000 13.65 12.67 

0.991 0.0009 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0007 0.0002 


76.0 218. 2.186 216. 0.080 0.621 1.000 1.29 1477. 841. 12.56 

279. 1.705 0.000 0.000 13.65 10.56 

0.965 0.0008 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0006 0.0002 


MACH = 0.570 ALTITUDE = 5000.00 FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDAOD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5230. 

0.629 

297. 

0.252 

0.638 

1.000 

2.03 

2697. 

1506. 

22.4 9 


5332. 

0.617 

0.000 

0.000 

13.65 

10.42 






1.162 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0004 
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98,0 4833. 0.647 291. 0.246 0.620 1.000 2.30 2643. 1536. 21.51 

4937. 0.633 0.000 0.000 13.65 11.70 

1.139 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0007 0.0003 


96.0 4207. 0,659 285. 0.242 0.616 1.000 2,41 2517. 1489. 20.56 

4311. 0.643 0.000 0.000 13.65 12.43 

1.116 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0003 


94.0 3561. 0.687 279. 0.233 0.599 1.000 2.57 2395. 1452. 19.64 

3666. 0.667 0.000 0.000 13.65 13.26 

1.093 0,0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


92.0 2872. 0.747 273. 0.216 0.559 1.000 2.82 2278. 1426. 18.75 

2979. 0.720 0.000 0.000 13.65 14.17 

1.069 0.0011 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0002 


90.0 2105. 0.887 267. 0.184 0.478 1.000 3.18 2165, 1411. 17.88 

2209. 0.845 0.000 0.000 13.65 15.15 

1.046 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0002 


88.0 1601. 1.008 261. 0.165 0.434 1.000 3.15 2057. 1352. 17.04 

1707. 0.945 0.000 0.000 13.65 15.48 

1.023 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0001 


86.0 1366. 1.011 255. 0.166 0.456 1.000 2,79 1953. 1258. 16.23 

1476, 0.936 0.000 0.000 13.65 15.27 

1.000 0.0011 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0002 


84.0 1137. 1,029 249. 0.166 0.482 1.000 2.45 1853. 1168. 15.44 

1246. 0.939 0.000 0.000 13.65 14.96 

0.976 0.0011 0.0000 0,0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0002 


82.0 912. 1.072 244. 0.162 0.511 1.000 2.14 1758. 1083. 14.68 

1019. 0.959 0.000 0.000 13.65 14.52 

0.953 0.0011 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0009 0.0002 


80.0 686. 1,173 238, 0.153 0.543 1.000 1.85 1667. 1002. 13.95 

791. 1.017 0.000 0.000 13.65 13.88 

0,930 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


78.0 454. 1.427 232. 0.133 0.573 1.000 1.59 1580. 926. 13.24 

555. 1.167 0.000 0.000 13.65 12.87 

0.907 0.0010 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0008 0.0002 


76.0 209. 2.435 226. 0.092 0.563 1.000 1.36 1498. 855. 12.56 

301. 1.689 0.000 0.000 13.65 11.14 

0.883 0.0009 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0007 0.0002 
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MACH = 0.700 ALTITUDE = 5000.00 FEET 


PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

5013. 

0.698 

325. 

0.284 

0.699 

1.000 

2.03 

2697. 

1467. 

22.49 


5204. 

0.673 

0.000 

0.000 

13.65 

9.53 






1.037 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 


98.0 

4790. 

0.727 319. 0.274 

0.662 1.000 2.49 

2697. 

1560. 21.51 


4989. 

0.698 0.000 0.000 

13.65 11.31 




1.016 

0.0013 0.0000 0,0000 

0.0000 0.0000 0.0000 

0.0000 

0.0009 0.0004 


96,0 

4219. 

0.750 312. 0.267 

0.646 1.000 2.70 

2595. 

1543, 

20,56 


4422. 

0.716 0.000 0.000 

13.65 12.20 





0.996 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0010 

0.0003 


94.0 

3555. 

0.786 306. 0.257 

0.624 1.000 2.88 

2470. 

1505, 

19.64 


3763. 

0.743 0.000 0.000 

13.65 13.00 





0.975 

0.0014 0.0000 0.0000 

0.0000 0,0000 0.0000 

0.0000 

0.0011 

0.0003 


92.0 

2869. 

0.854 299. 0.240 

0.582 1.000 3.16 

2349. 

1477. 

18.75 


3074. 

0.797 0.000 0.000 

13.65 13.88 





0.954 

0,0013 0,0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0011 

0.0002 


90.0 

2136 . 

0.999 

293 . 

0.208 

0.505 

1.000 

3.56 

2233 . 

1461 , 

17.88 


2329 . 

0.916 

0.000 

0.000 

13.65 

14.82 






0,933 0.0013 

0.0000 0.0000 

c.ocoo o.oocc 

0.0000 

0.0000 

0.0011 

0.0002 

88.0 

1643 . 

1.123 

286 . 

0.191 

0.4 63 

1,000 

3.53 

2121 . 

1400 . 

17.04 


1840. 

1.002 

0.000 

0.000 

13.65 

15.16 






0.913 0.0013 

0.0000 0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0011 

0.0002 


86.0 

1375, 

1.149 280, 0.192 

0.475 1.000 3.12 

2014. 

1302, 

16.23 


1589. 

0.994 0.000 0.000 

13.65 15.00 





0.892 

0.0014 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0012 

0.0002 


84.0 

1124, 

1.190 273. 0.192 

0.488 1.000 2.74 

1911. 

1209. 

15.44 


1343. 

0.996 0.000 0.000 

13.65 14.75 





0.871 

0.0014 0.0000 0.0000 

0,0000 0.0000 0.0000 

0.0000 

0.0012 

0.0002 


82.0 

881. 

1098. 

1.270 267. 0.187 

1.019 0.000 0.000 

0.502 1.000 2.39 

13.65 14.39 

1813. 

1121. 

14.68 


0.850 

0.0014 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0012 

0.0002 
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80.0 

642. 

1.434 

260. 

0.178 

0.507 

1.000 

2.07 

1719. 

1038. 

13.95 


856. 

1.076 

0.000 

0.000 

13.65 

13.88 






0.830 

0.0014 0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0012 

0.0002 


78.0 

402. 

1.846 254. 0.157 

0.489 1.000 1.79 1630. 

959. 

13.24 


610. 

1.218 0.000 0.000 

13.65 13.11 




0.809 

0.0014 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0011 

0.0003 


76.0 

157. 

3.705 

247. 

0.116 

0.370 1.000 1.53 

1545. 

886. 

12.56 


353. 

1.650 

0.000 

0.000 

13.65 11.89 





0.788 

0.0013 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0010 

0.0003 


74.0 

-102. 

-4.310 

241. 

0.030 

-1.471 1.000 1.30 

1464 . 

817. 

11.90 


69. 

6.361 

0.000 

0.000 

13.65 9.63 





0.767 

0.0011 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0008 

0.0003 



MACH = 

0.700 

ALTITUDE = 

10000. 

00 FEET 




PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CD BP 

CDAUX 

CDDIV 

CDBT 

CDINF 

100.0 

4386. 

0.696 

274 . 

0.279 

0.673 

1.000 

2.30 

2697. 

1513. 

22.4 9 


4547. 

0.671 

0.000 

0.000 

13.65 

10.39 






1.037 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 


98.0 

4005. 

0.715 268. 0.273 

0.656 1.000 2.56 2628. 

1526. 

21.51 


4170. 

0.686 0.000 0.000 

13.65 11.45 




1.017 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0010 

0.0004 


96.0 

34 68. 

0.732 263. 0.269 

0.648 1.000 2.68 

2503. 1479. 

20.56 


3636. 

0.698 0.000 0.000 

13.65 12.16 




0.996 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 0.0010 

0.0003 


94.0 

2921. 

0.767 

258. 

0.259 

0.627 1.000 2.86 2381. 1442. 

19.64 


3092. 

0.724 

0.000 

0.000 

13.65 12.97 



0.975 

0.0014 

0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0011 

0.0003 


92.0 

2355. 

0.834 252. 0.241 

0.584 

1.000 

3.14 

2265. 

1416. 

18.75 


2525. 

0.778 0.000 0.000 

13.65 

13.85 






0.954 

0.0013 0.0000 0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0011 

0.0002 


90.0 

1751. 

0.977 

247. 

0.210 

0.507 

1.000 

3.54 

2153. 

1402. 

17.88 


1912. 

0.894 

0.000 

0.000 

13.65 

14.80 






0.934 

0.0013 0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0000 

0.0011 

0.0002 
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88.0 

1344 . 

1.099 

241. 

0.192 

0.4 64 

1.000 

3.51 

2045. 

1343. 

17.04 


1508. 

0.979 

0.000 

0.000 

13.65 

15.14 




0.0002 


0.913 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

86.0 

1123. 

1.125 

236. 

0.193 

0.475 

1.000 

3.10 

1942. 

1250. 

16.23 


1301. 

0.971 

0.000 

0.000 

13.65 

14.98 




0.0002 


0.892 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

o 

00 

916. 

1.168 

230. 

0.192 

0.489 

1.000 

2.72 

1843. 

1160. 

15.44 


1097. 

0.976 

0.000 

0.000 

13.65 

14.72 






0.871 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

82.0 

717. 

1.248 

225. 

0.188 

0.502 

1.000 

2.37 

1748. 

1076. 

14.68 


896. 

0.998 

0.000 

0.000 

13.65 

14.36 






0.851 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

80.0 

519. 

1.417 

219. 

0.177 

0.507 

1.000 

2.06 

1658. 

996. 

13.95 


696. 

1.057 

0.000 

0.000 

13.65 

13.83 






0.830 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 

78.0 

321. 

1.846 

214 . 

0.156 

0.486 

1.000 

1.77 

1571. 

920. 

13.24 


492. 

1.204 

0.000 

0.000 

13.65 

13.05 






0.809 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0003 

76.0 

118. 

3.934 

208. 

0.113 

0.354 

1.000 

1.51 

1489. 

850. 

12.56 


279. 

1.664 

0.000 

0.000 

13.65 

11.78 






0.788 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

74 .0 

-98. 

-3.585 

203. 

0.023 

-2.361 

1.000 

1.28 

1411. 

783. 

11.90 


42. 

8.302 

0.000 

0.000 

13.65 

9.42 






0.768 

0.0011 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0003 


SEA-LEVEL STATIC THRUST = 9065. (MAX) 

SEA-LEVEL SFC = 0.364 

CALLING MODULE NUMBER 6 
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WEIGHT STATEMENT - BOMBERS 
•** WEIGHTS DATA *** 

ACSYNT MODULE NUMBER 6 


COMPONENT 

AIRFRAME STRUCTURE 
WING 
FUSELAGE 
HORIZONTAL TAIL 
VERTICAL TAIL 
NACELLES 
ALIGHTING GEAR 

PROPULSION 
ENGINES (2) 

FUEL SYSTEM 

FIXED EQUIPMENT 
HYD. + PNEU. 
ELECTRICAL 
AVIONICS 
INSTRUMENTATION 
DE-ICE/AIR CONDITION 
AUXILIARY GEAR 
FURNISH. + EQPT. 
FLIGHT CONTROLS 

FUEL 

PAYLOAD 

FLIGHT CREW ( 1) 

ARMAMENT 

AMMUNITION 

MISSILES 

BOMBS 

EXTERNAL TANKS 
ADV, WEAPONS 1 
ADV. WEAPONS 2 

CALCULATED WEIGHT 

ESTIMATED WEIGHT 

PERCENT ERROR 

CALLING MODULE NUMBER 10 


POUNDS 

KILOGRAMS 

PERCENT 

12921. 

5861. 

27.42 

5212. 

2364 . 

11.06 

4454. 

2020. 

9.45 

457. 

207. 

0.97 

436. 

198. 

0.93 

805. 

365. 

1.71 

1556. 

706. 

3.30 

3577. 

1623. 

7.59 

3169. 

1438. 

6.73 

408. 

185. 

0.87 

5179. 

2349. 

10.99 

297. 

135. 

0.63 

693. 

314 . 

1.47 

1602. 

727. 

3.40 

170. 

77. 

0.36 

377. 

171. 

0.80 

165. 

75. 

0.35 

465. 

211 . 

0.99 

1411. 

640. 

3.00 

11443. 

5191. 

24.28 

14000. 

6350. 

29.71 

240. 

109. 

0.51 

0. 

0. 

0.00 

1000. 

454 . 

2.12 

0. 

0. 

0.00 

1848. 

838. 

3,92 

0. 

0. 

0.00 

0. 

0, 

0.00 

0. 

0. 

0,00 

47121. 

21374. 

100.00 

47117. 

21372. 



0.01 
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FINAL VALUES OF NAVY MODULE VARIABLES 


CATAPULT TAKEOFF CALCULATIONS, 


TAKEOFF GROSS WEIGHT 
CATAPULT ENDSPEED 
LIFTOFF ENDSPEED 
TAKEOFF STALL SPEED 
MINIMUM WIND OVER DECK 
TAKEOFF ACCELERATION 
TAKEOFF CL 
TAKEOFF CD 
ENGINE OUT CLIMB SPEED 
TAKEOFF FUEL WEIGHT 
TAKEOFF AOA 


= 47117. LBS 
=160.4 KNOTS 
=162.5 KNOTS 
=96.1 KNOTS 
=-56.7 KNOTS 
=0.269 G"S 
=2.832 
=0.279 

= -586.9 FT PER MIN 
=11443. LBS 
=11.58 DEGS 


ARRESTED LANDING CALCULATIONS 


CARRIER LANDING WEIGHT 
APPROACH STALL SPEED 
MINIMUM APPROACH SPEED 
CABLE ENGAGING SPEED 
MINIMUM WIND OVER DECK 
LANDING CL 
LANDING CD 
LANDING RESERVE FUEL 
ENGINE OUT CLIMB SPEED 
LANDING AOA 


=36486. LBS 
=84.6 KNOTS 
=101.5 KNOTS 
=145.0 KNOTS 
=-33.3 KNOTS 
=3.345 
=0.406 
= 2660. LBS 
= 646.8 FT PER MIN 

=11.78 DEGS 


OTHER CALCULATIONS 

OPERATING EMPTY WEIGHT =22164. LBS 
FOLDED TAIL HEIGHT = 11.5 FEET 
NERROR = 0 

CALLING MODULE NUMBER 11 
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SUMMARY - ACSYNT OUTPUT - NASA, AMES RESEARCH CENTER 

A-10 THUNDERBOLT 


GENERAL 


FUSELAGE 



HING 

HTAIL 

VTAIL 

NG 

47121. 

LENGTH 


53.3 

AREA 

506.0 

118.4 

54.1 

W/S 

93 

.1 

DIAMETER 


5.3 

NETTED AREA 

1012.4 

189.0 

102.8 

T/W 

0. 

38 

VOLUME 


809.4 

SPAN 

57.5 

18.8 

9.7 

N(Z) ULT 11 

.3 

NETTED AREA 

702.9 

L.E. SHEEP 

0.0 

0.0 

4.0 

CREW 


1. 

FINENESS 

RATIO 

10.1 

C/4 SHEEP 

-1.8 

-0.1 

-4.0 

PASENGERS 

0. 




ASPECT RATIO 

6.54 

2.99 

1.74 







TAPER RATIO 

0.66 

0.99 

0.61 

ENGINE 


HEIGHTS 


T/C ROOT 

0.16 

0.13 

0.13 







T/C TIP 

0.13 

0.13 

0.12 

NUMBER 


2. 


H 

HG 

ROOT CHORD 

10.6 

6.3 

6.9 

LENGTH 

8 

.3 

STRUCT. 

12921. 

27.4 

TIP CHORD 

7.0 

6.3 

4.2 

DIAM. 

3 

.8 

PROPUL. 

3577. 

7.6 

M.A. CHORD 

8.9 

6.3 

5.7 

HEIGHT 

1478 

.0 

FIX. EQ. 

5179. 

11.0 

LOC. OF L.E. 

22.4 

45.4 

44.8 

TSLS 

9065. 

FUEL 

11443. 

24.3 





SFCSLS 

0. 

36 

PAYLOAD 

14000. 

29.7 






MISSION SUMMARY 


PHASE 

MACH 

ALT 

FUEL 

TIME 

DIST 

L/D 

THRUST 

SFC 

Q 

TAKEOFF 

0.00 

0. 

345. 

7.0 

2769.5 





CLIMB 

0.50 

5000. 

104. 

0.9 

4.9 

11.15 

11232.9 

0.580 

310.6 

CRUISE 

0.50 

6164. 

2414. 

42.5 

230.0 

11.41 

3942.4 

0.841 

297.4 

CRUISE 

0.50 

298. 

506. 

7.3 

40.0 

9.68 

4541.1 

0.915 

366.9 

COMBAT 

0.60 

100. 

3794. 

30.0 

198.4 

14.90 

11737.4 

0.646 

531.4 

CRUISE 

0.50 

334. 

500. 

7.3 

40.0 

8.42 

4368.0 

0.940 

366.5 

CLIMB 

0.48 

5000. 

78. 

0.7 

3.5 

9.96 

11354.1 

0.569 

282.5 

CRUISE 

0.50 

6454. 

2345. 

42.6 

230.0 

9.60 

3636.0 

0.880 

294.8 

LOITER 

0.27 

500. 

718. 

20.0 

59.4 

13.12 

2608.0 

0.825 

106.1 


LANDING 5266.4 

BLOCK TIME - 2.521 HR 

BLOCK RANGE - 806.2 NM 

COMBAT PHASES 

MACH ALT PSIG NZS CLS CDS ALS NZl PSI CLI CDI ALI CBE 
0.60 100. 86, 4.0 0.647 0,0435 5.5 7.0 -199. 1.131 0.0913 10.3155192. 
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XI. EXAMPLE TWO 


A. INTRODUCTION 

This example will use the A-10 design developed in the previous example, 
only a Sensitivity Study will now be performed on it. In partictilar, the effect 
that the wing taper and overaU compressor pressure ratio have on the aircraft 
gross weight will be examined. No changes to the aircraft data file other than 
the Analysis Method will be made. It is assumed that the data file was 
updated after Example 1 was performed so that the design is now "converged". 

B. SENSmVITY INPUTS 

After a decision is made concerning the goals of the analysis, the Global 
Numbers for the variables must be determined and the desired range for the 
Sensitivity Variables should be set. The following information comes from 
Tables 1, 4 and 5: 

• Sensitivity Objective: Total Aircraft Weight 

Global Number: 585 

• Sensitivity Variable #1; Wing Taper Ratio 

Global Number: 514 
Range: 0.1 • 0.99 

• Sensitivity Variable #2: Overall Compressor Press. Ratio 

Global Number: 337 
Range: 16.0 - 25.0 
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With the information in hand, start CREATE and complete the following 
steps: 

• Start CREATE and open the "AlO" data file. 

• Select (1), Change Analysis Method 

• Select (3), Sensitivity 

• Enter a project title of "A-10 Sensitivity Study" 

• One Sensitivity Objective 

• Sensitivity Objective Global Number: 585 

• Two Sensitivity Variables 

• Sensitivity Variable #1: 514 

• Upper Bound: 0.99 

• Lower Boimd: 0.1 

• Sensitivity Variable #2: 337 

• Upper Bound: 25.0 

• Lower Bound: 16.0 

• Aircraft (3), Bomber 

• No change to the Module selection. 

• No further changes. Complete CREATE to the end. 

Now run ACSYNT again. This analysis will take about 18 minutes. 
The design is re-converged for each of the 14 variable values (seven values for 


111 





each Sensitivity Variable). The output from this study is on the following 
pages. The first part (pages 114 -131) is similar to the Simple Analysis and 
is just to show the initial values. The convergence information starts on page 
121 . 

The results of the Sensitivity Study starts on page 131. The taper ratio 
is examined first and is in the 'X' column, with the corresponding gross 
weights in the F(X) column. Due to a bug in ACSYNT, the initial values (in 
this case for taper * 0.5 ) are not printed, so the first indicated value is 0.58. 
It is apparent that the gross weight declines shghtly as the taper ratio 
increases (Fig 5). The compressor pressure ratio clearly has a greater impact 
on the gross weight (Fig 6), brought about by fiiel savings. These results are 
shown graphically on the following page. 
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cnssKioa (IK) cnss ticm (ik) 


TRPER RATIO VS GROSS WEIGHT 



TftPEH IIBTIO 


COMPRESSOR PRESSURE RATIO VS GROSS WEIGHT 



cowressw fRESURt RRTIO 


6. Sensitivity Study Results 
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NASA-AMES PROGRAM 
FOR 

AIRCRAFT SYNTHESIS 
NAVAL POSTGRADUATE SCHOOL VERSION 


TITLE 

A-10 SENSITIVITY STUDY 

AIRCRAFT TYPE - BOMBER 


I 
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TITLE: 

A-10 SENSITIVITY STUDY 


AIRCRAFT TYPE - BC»1BER 


CONTROL PARAMETERS: 

READ CONTROL, MREAD - 

EXECUTION CONTROL, MEXEC - 

NRITE CONTROL, MWRITE - 

NUMBER IDENTIFYING CONVERGENCE 

VARIABLE FOR CONVERGED VEHICLE, lOBJ - 

NUMBER IDENTIFYING COMPARISON 

VARIABLE FOR CONVERGED VEHICLE, JOBJ - 

SUMMARY OUTPUT PRINT CODE, IPSUM - 

GLOBAL ERROR PRINT CODE, KdLOBP > 

GLOBAL COMMON INITIALIZATION CODE, INIT - 

DEBUG PRINT CODE, IPDBG - 

GLOBAL PLOT CONTROL, IGPLT - 

DATA TRANSFER INFORMATION FILE, IRDDTR 
DATA TRANSFER INFORMATION PRINT, IPDTR 


6 

4 

6 

570 

585 

1 

0 

0 

2 

1 

7 

0 


VEHICLE CONVERGENCE INFORMATION: 
CONVERGENCE TOLERANCE, TOL - O.lOOOOE-03 
ESTIM WCALC VS NEXT SLOPE « 0.75000E4'00 
BOUNDING HEIGHT, NGMAX - 0.60000E+05 


MODULE IDENTIFICATION NUMBERS: 


NUMBER 

1 

2 

3 

4 

5 

6 
8 

10 

11 

14 


MODULE 

GEOMETRY 

TRAJECTORY 

AERODYNAMICS 

PROPULSION 

STABILITY AND CONTROL 

HEIGHTS 

GLOBAL I/O 

NAVY 

SUMMARY OUTPUT 
TAKEOFF AMD LANDING 


MODULES ARE CALLED FOR INPUT IN THE FOLLOHING ORDER: 
1 2 3 4 6 10 


MODULES ARE CALLED FOR EXECUTION IN THE FOLLOHING ORDER 
1 2 6-10 


MODULES ARE CALLED FOR OUTPUT IN THE FOLLOHING ORDER: 

1 2 3 4 6 10 

CALLING MODULE NUMBER 1 
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GEOMETRY DATA CAROS 


1* 

** GEOMETRY DATA *** 

2 

SHING 


3 

AR- 6.54, 

AREA- 506.00, 

4 

FDENHG- 48.62, 

LFLAPC-0.12, 

5 

SHFACT-0.99, 

TAPER-0.66, 

6 

TCTIP-0.13, 

TFLAPC-0.35, 

7 

XHIMG-0.47, 

ZROOT—1.00, 

8 

ODTCOD-2, 


9 

$END 


10 

SHTAIL 


11 

AR- 2.99, 

AREA^ 118.40, 

12 

HTFRAC-0.234, 

SHEEP- 0.00, 

13 

TAPER-0.99, 

TCROOT-0.13, 

14 

XHTAIL-O.97, 

ZROOT-0.00, 

15 

OOTCOD-2, 

SIZIT-F, 

16 

SEND 


17 

SVTAZL 


18 

AR- 1.74, 

AREA- 54.10, 

19 

SHEEP- 0.00, 

SHFACT-1.10, 

20 

TCROOT-0.13, 

TCTIP-0.12, 

21 

VTNO-2.0, 

XVTAlL-0.97, 

22 

ZROOT—.90, 

KSHEEP-0, 

23 

S12IT-r, 


24 

SEND 


25 

SFPOO 


26 

DZAM- 4.88, 

LENGTH- 10.89 

27 

THETA- 0.00, 

X-0.6, 

28 

SYMCOD-0, 


29 

SEND 


30 

$FUS 


31 

BOMAX- 5.26, 

BODL- 53.33, 

32 

FRAB- 5.50, 

FRATIO- 0.00, 

33 

LRADAR- 0.00, 

SFFACT- 1.00, 

34 

HFUEL- 11443.0 

, OOTCOD-2, 

35 

SEND 


36 

SCREH 


37 

LENGTH- 0.00, 

HIDTH- 0.00, 

38 

ODTCOD-2, 

TAND-T, 

39 

SEND 


40 

SFUEL 


41 

OEN-48.62, 

FRAC-1.00, 

42 

OOTCOD-2, 


43 

SEND 



DIHED- 7.00, 
SHEEP- 0.00, 
TCROOT-0.16, 
HFFRAC-0.19, 
KSHEEP-0, 


CVHT-1.00, 

SHFACT-1.10, 

TCTIP-0.13, 

RSHEEP-0, 


CWT—O.IO, 

TAPBR-O.Sl, 

VTFRAC-0.107, 

YROOT-0.00, 

OOTCOD-2, 


SOD- 0.20, 
OOTCOD-2, 


DRAOAR- 0.00, 
FRM- 1.94, 
KALI.- 0.00, 
ZTAIL-l, 


MCREH- 1, 


MFDEL- 0.0, 


END or GEOMETRY DATA CAROS 
43 CARDS READ 


CREH SEATING REQUIREMENTS 


NUMBER OF CREH. 1.0 

TANDEM SEATING. T 

CREH LENGTH REQUIRED. 0.0 

CREH HIDTR REQUIRED. 3.5 
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NASA/MIES A C S y N T **IN1TIAL ODTPDT** 
FUSELAGE DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

1.07 

0.78 

1.92 

2.13 

1.26 

4.98 

3.20 

1.63 

8.36 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

6.40 

2.35 

17.36 

l.Al 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.60 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

18.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21.30 

28.60 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

36.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.86 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 



**FUSELAGE 

MAX. DIAMETER- 

5.260 

FINENESS 

RATIO... 

10.139 

SURFACE 

AREA•••• • 

702.864 

VOLUME.. 


809.360 
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NASA/AMES A C S Y H T **INITIAL OOTPUT** 

DIMENSIONS OF PLANAR SURFACES 



WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN AREA. 

506.0 

118.4 

54.1 

0.0 

(SQ.FT.) 

SURFACE AREA. 

1012.4 

189.0 

102.7 

0.0 

(SQ.FT.) 

VOLUME. 

464.5 

67.8 

27.1 

0.0 

(CU.FT.) 

SPAN. 

57.526 

18.815 

9.702 

0.000 

(FT.) 


0.000 

0.000 

0.000 

0.000 

(DEG.) 

C/4 SWEEP. 

-1.794 

-0.096 

-3.982 

0.000 

(DEG.) 

T.E. SWEEP. 

-7.140 

-0.385 

-15.559 

0.000 

(DEG.) 

ASPECT RATIO . 

6.540 

2.990 

1.740 

0.000 


ROOT CHORD. 

10.598 

6.324 

6.927 

0.000 

(FT.) 

ROOT THICKNESS. 

20.347 

9.866 

10.806 

0.000 

(IN.) 

ROOT T/C . 

0.160 

0.130 

0.130 

0.000 


TIP CHORD. 

6.994 

6.261 

4.225 

0.000 

(FT.) 

TIP THICKNESS. 

10.911 

9.767 

6.084 

0.000 

(IN.) 

TIP T/C . 

0.130 

0.130 

0.120 

0.000 


TAPER RATIO . 

0.660 

0.990 

0.610 

0.000 


MEAN AERO CHORD.... 

8.919 

6.293 

5.685 

0.000 

(FT.) 

LE ROOT AT. 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4 ROOT AT. 

25.065 

46.987 

46.535 

0.000 

(FT.) 

TE ROOT AT. 

33.013 

51.730 

51.730 

0.000 

(FT.) 

LE M.A.C. AT. 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4 M.A.C. AT. 

24.645 

46.979 

46.225 

0.000 

(FT.) 

TE M.A.C. AT. 

31.335 

51.699 

50.488 

0.000 

(FT.) 

Y M.A.C. AT. 

13.400 

4.696 

4.459 

0.000 


LE TIP AT. 

22.416 

45.406 

44.803 

0.000 

(FT.) 

C/4 TIP AT. 

24.164 

46.971 

45.860 

0.000 

(FT.) 

TE TIP AT. 

29.410 

51.667 

49.029 

0.000 

(FT.) 

ELEVATION. 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME COEFF. 


0.586 

0.040 

0.000 



EXTENSIONS 

Strmk* Rear Extanaion 
Cantrold location at. 0.000 0.000 


Araa. 0.000 0.000 

Nattad Araa. 0.000 0.000 

Voluma. 0.000 0.000 

Swaap Angla. 0.000 

FUEL TANKS 

TANK VOLUME WEICRT DENSITY 

NING 84. 4103. 48.62 

FUSfl 0. 0. 48.62 

FUS*2 0. 0. SO.00 

TOTAL 4103. 


MISSION FUEL REQUIRED- 0. 

AVAILABLE FUEL VOLUME IN WING- 444. 

AIRCRAFT WEIGHT - 0.000 Lba. 

AIRCRAFT VOLUME - 1368.697 Cu.Ft. 

AIRCRAFT DENSITY - 0.000 Lbs./Cu.Ft.- 

CASE- 4 

CALLING MODULE NUMBER 2 
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TRAJECTORY INPOT 


TIMTOl 

■ 

5.0 

MBNDOR 

a 

0. 

NCROSE 

a 

4 

IPLOT 

a 

0 

TIMT02 

m 

2.0 

QMAX 

a 

700. 

IPSIZE 


-3 

HMINP 

a 

0. 

FRFORE 

m 

0.05 

XDESC 

a 

80.0 

IPSTOl 

a 

5 

HMAXP 

a 

40000. 

DESLF 

7.00 

WKFOEL 

a 

1.000 

IPST02 

a 

2 

DELHP 

a 

4000. 

OLTLF 

-11.25 

CRHACH 

a 

0.450 

IBREG 

a 

0 

SM4INP 

a 

0.300 

RANGE 

■i 

1000. 

NKLAND 

a 

0.570 

lENDDR 

a 

0 

StMAXP 

a 

0.900 

WFOEL 

■1 

11130. 

FLFAC 

a 

0.600 

IPRINT 

a 

0 

DELMP 

a 

0.100 

NFEXT 

m 

0. 

DECEL 

a 

0.250 

RERROR 

a 

2 

WCOMBP 

a 

0.50 

NFTRAP 

« 

100. 

NLEGCL 

a 

0 

NLEGCR 

a 

0 

NLECLO 

a 

0 

FN<aavx 

m 

1.200 

TOL 

a 

0.001 

MILCOM 

a 

0 

NMISS 

a 

1 


NCODE - 0 


MMPROP - 1 


MISSION 1 


PHASE 

MACH NO. 
START END 

ALTITUDE 
START END 

HORIZONTAL 
DIST TIME 

NO. 

TORN 

VIND 

•*C"S 

HKFDEL 

M 

IP 

IX 

N 

B 

A 

p 

CLIMB 

0.00 

0.00 

100 

5000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CROISE 

0.50 

0.50 

5000 

-1 

230.0 

44.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

CRDISE 

0.50 

0.50 

100 

-1 

40.0 

8.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

COMBAT 

0.60 

0.60 

100 

-1 

0.0 

30.0 

0.0 

5.0 

1.0000 

1 

3 

0 

0 

1 

1 

0 

CROISE 

0.50 

0.50 

100 

-1 

40.0 

8.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

CLIMB 

0.00 

0.00 

100 

5000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CROISE 

0.50 

0.50 

5000 

-1 

230.0 

44.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

LOITER 

0.27 

0.27 

500 

-1 

10.0 

20.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 


CALLING MODOLE NDMBER 3 
CALLING MODOLE NOMBER 4 
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PROPULSION INPOT 
VERSION 04-76 


*** PROPULSION DATA *** 


AENDIA 

m 

4.350 

AENLE - 

8.330 

AENNT - 

1478.000 

ALTI 

m 

0.000 

AM - 

0.000 

ATURB B 

0.385 

ABNTN 

■1 

0.000 





AUAENG 

m 

0.000 

AMAENG - 

0.157 

BA 

6.230 

DELPR 

m 

0.000 

DELT57 - 

100.000 

DEPNCC - 

2.000 

DIAl 

m 

3.860 

EABl 

0.750 

EBl 

0.870 

EDI 

m 

0.750 

ETACl - 

0.800 

ETAFl - 

0.900 

ETATl 

m 

0.920 

HTR 

0.550 

HVF - 

18600.000 

MACHl 

m 

1.000 

MACH2 * 

1.100 

PCDFAC - 

1.000 

POSA 

m 

29.920 

PRFD 

1.510 

PMCC 

100.000 

PUPl 

■i 

1.396 

P2P1 

21.000 

RlOA 

-1.000 

R32 

m 

0.970 

R54 

0.920 

R54N 

0.880 

R711 

m 

0.980 

R711N - 

0.820 

SCPR - 

1.240 

SFADP 

m 

1.000 

SFADSP - 

1.000 

SFAUXP - 

1.000 

SFBEP 

■1 

1.000 

SFBPP - 

1.000 

SFBTP - 

1.000 

SFDIVP 

a 

1.000 

SFINSP - 

1.000 

SFIP 

1.000 

SFSFCl 

m 

1.000 

SFSFC2 - 

1.000 

SFSFC3 - 

1.000 

SMI 

m 

0.500 

SODG - 

2.000 

TOSA 

518.000 

TR 

m 

520.000 

TMAB 

25100. 

TMOAB - 

9065. 

TMTO 

m 

0.500 

T3 

2697. 

T5M 

3400. 

T51 

m 

0. 

T7M 

3400. 

T71 - 

0. 

VCl 

m 

0.980 

NCNAl - 

0.000 

XMDES - 

0.850 

XMT 

m 

0.850 

YREN 

75. 

FRBT 

0.000 

FRPN 

m 

0.000 

RDIAM « 

1.150 

RLENG - 

1.307 


IPR 

3 

IPRINT - 

0 

IPLOT 

m 

0 

KERROR - 

0 

RODE - 

2 

KT5 

m 

0 

ICT7 

0 

MINPR - 

1 

NAB 

m 

6 

HOZZ 

0 

NPROP - 

6 

tisam 

m 

15 

THESE VARIABLES ARE 
ESF - 1.000 

USED BY TABLE 
NDTAIL - 0 

lENG 

LOOK UP 
IPDBUG > 0 

IIPRINT - 

2 (TF30) 

0 


ALTD - 

0. 

0. 

5000. 

5000. 

5000. 

10000. 


XMACH - 

0.000 

0.500 

0.500 

0.570 

0.700 

0.700 


XMPRI - 

0.000 

0.300 

0.600 

0.900 

1.200 

4.000 


XPRI - 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 


XMPRIl - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRIl - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XMPRI2 - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XFRI2 - 

CALLING 

0.000 0.000 

0.000 0.000 

MODULE NUMBER 6 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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INITIAL WEIGHTS INPOT DATA 
ACSINT MODULE NUMBER 6 

AIRCRAFT TYPE: BOMBER 
TITLE: *** WEIGHTS DATA *** 


CONTROL OPTIONS 


IPRINT 

« 

1 IGRAPH 

- 1 

ITAIL 

- 0 KERROR - 

0 

IDELT 

m 

0 lOBLIQ 

- 0 

KWING 

« 3 KBODY - 

1 

K1 

m 

1.00 K2 

- 1.00 

K3 

- 1.0 K4 

■1 

1.0 

K5 

m 

1.00 K6 

-1.00 

AFMACH - 0.70 MAXIT - 

1 

KB 

m 

0.00 KPl 

- 0.00 

KP2 

- 0.00 



FR 

m 

1.00 TBCHG 

- 1.00 

WGTO 

- 47121 

• 


STRESS 

m 

30000. 


DENS 

- 0.056 

FLIFTF -0.000 

TECHI 

m 

1.00 1.00 

1.00 

1.00 

1.00 1.00 

1.00 

1.00 1.00 

SLOPE(1) 

m 

1.10 1.20 

1.20 

1.00 

2.02 0.90 

0.90 

1.00 

SLOPE(9) 

m 

1.30 1.00 

1.00 

1.00 

1.00 1.00 

1.00 

1.37 1.00 

(ITIAL ESTIMATES 







IF CODE 

- 1, 

WEIGHT 

IS FIXED 




QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 

a 

12251. 

0 

WAIRC - 

283. 

0 

WAPU 

m 

0. 

0 

WAM4UN - 

1000. 

1 

WARM 

m 

0. 

0 

WBAG 

0. 

0 

WBBl 

m 

0. 

0 

WBODY - 

5183. 

0 

WCAND 

m 

0. 

0 

WCARGO - 

0. 

0 

WCREW 

m 

283. 

0 

WE 

6126. 

0 

WELT 

m 

1979. 

0 

WEP 

660. 

0 

WETANK 

m 

0. 

0 

WFEQ 

5655. 

0 

WFS 

m 

613. 

0 

WCA 

660. 

0 

WGEAR 

m 

283. 

0 

WHDP - 

24. 

0 

WHT 

m 

942. 

0 

WINST - 

141. 

0 

WLG 

m 

1414. 

0 

WMISS - 

0. 

0 

WNA 

m 

1131. 

0 

WPA - 

0. 

0 

HP ASS 

m 

0. 

0 

WPL - 

14000. 

1 

WPS 

m 

6597. 

0 

WSC - 

1414. 

0 

WTSUM 

m 

47121. 

0 

WVT 

424. 

0 

WWING 

m 

3770. 

0 

WBOMB - 

1848. 

1 

WENVP 

m 

0. 

0 

WPIV - 

0. 

0 

WLIFTF 

m 

0. 

0 

WBB2 - 

0. 

0 


CALLING MODULE NUMBER 10 


INPUT VALUES TO NAVY MODULE 

CIMAX - 1.80 
SIGMA - 0.94449 
VSOUND - €79.6 

ALT - 0. 


* • * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.47121E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 
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5.000000 


WAIUtIHG : Combat load factor reduced from Input value of 
CALLIHG MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49355E-«-05 

SLOPE OF MCALC VS WEST LINE - 0.75000E-f00 

ESTIMATED GROSS WEIGHT - 0.56058E-»-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.51610E-i-05 

SLOPE OF WCALC VS WEST LIME - 0.30000E+00 

ESTIMATED GROSS WEIGHT - 0.50109E-«-05 
CALLING l«}DULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor reduced from Input value of 
CALLING MODULE NUMBER € 

CALCULATED OIOSS WEIGHT - 0.50120E-I-05 

SLOPE OF WCALC VS WEST LIME - 0.30000E+00 

ESTIMATED GROSS WEIGHT > 0 .S0124E-»-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING i Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT > 0.50122Et0S 


* • * END VEHICLE CONVERGENCE 

3 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.50124E-»-05 
CALLING NODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49715B405 

SLOPE OF WCALC VS WEST LINE - 0.70000Et00 

ESTIMATED GROSS WEIGHT - 0.4S759E-I-05 
CALLING MCX>ULE NUMBER 1 


5.000000 


5.000000 


5.000000 


5.000000 
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5.000000 


CALLIH6 MODOLE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.493e0E-l-0S 

SLOPE OF NCALC VS NEST LINE - 0.30000E+00 

ESTIMATED GROSS HEIGHT - 0.49581E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.49S82E-t-05 


* * * END VEHICLE CONVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS HEIGHT - 0.49581E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING I Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.49244E405 

SLOPE OF HCALC VS WEST LINE - 0.70000E-I-00 

ESTIMATED GROSS HEIGHT - 0.48457E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER € 

CALCULATED GROSS HEIGHT - 0.48972Et0S 

SLOPE OF HCALC VS WEST LINE - 0.30000E4-00 

ESTIMATED GROSS HEIGHT - 0.49137Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from ii^ut value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.49137Et05 


* * * END VEHICLE CONVERGENCE 


5.000000 


5.000000 


5.000000 


5.000000 
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2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS HEIGHT - 0.49137E+05 
CALLING MODULE NUMBER 1 
CALLING M(H}ULE NUMBER 2 

HARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER « 

CALCULATED GROSS HEIGHT - 0.48852E-t-05 

SLOPE OF HCALC VS HEST LINE « 0.70000B-f00 

ESTIMATED GROSS HEIGHT - 0.48187E-I-05 
CALLING M(H)ULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER € 

CALCULATED GROSS HEIGHT - 0.48624E-»-05 

SLOPE OF HCALC VS HEST LINE - 0.30000E-(-00 

ESTIMATED GROSS HEIGHT « 0.48762Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING > Combat load factor raducad from input valua of 
CALLING MODULE NUMBER « 

CALCULATED GROSS HEIGHT - 0.48762E-I-05 


* * * END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS HEIGHT - 0.48762Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HAItNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED CROSS HEIGHT - 0.48532E-«-05 

SLOPE OF HCALC VS HEST LINE « 0.70000B-I-00 

ESTIMATED GROSS HEIGHT - 0.47996E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT » 0.4e350E-«-05 

SLOPE OF HCALC VS HEST LINE » 0.30000E+00 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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0.48461E-I-05 


ESTIMATED GROSS WEIGHT - 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 
WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.4e460E+05 


* * * END VEHICLE CC»IVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.4e461E-»-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from Input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.4824fiE-l-05 

SLOPE OF WCALC VS WEST LINE - 0.70000Et00 

ESTIMATED GROSS WEIGHT - 0.47744E-«-0S 
CMJ.IMG MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input value of 
CALLING MODULE NUMBER « 

CALCULATED GROSS WEIGHT - 0.48078E-f05 

SLOPE OF WCALC VS WEST LINE - 0.30000E-t-00 

ESTIMATED GROSS WEIGHT - 0.4S180E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.48179E-I-05 


* * • END VEHICLE CONVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


• * * begin VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.48180Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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CALX.IM6 MODULE NUMBER 6 

CALCULATED (SIOSS NEICHT - 0.47989E+05 

SLOPE or NCALC VS NEST LINE - 0.70000B-I-00 

ESTIMATED SROSS NEIGRT - 0.47544E-»-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Conbat load factor raduoad from Ir^ut valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.47843E-t-0S 

SLOPE OP WCALC VS NEST LIME - 0.30000Bt00 

ESTIMATED GROSS WEIGHT - 0.47932E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Coeibat load iaotor raduoad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.47933E+05 


• • • END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

IMSUrriClEMT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.47932Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE MUlfiER 2 

WARMING s Coaibat load factor raduoad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49262E-t-05 

SLOPE or WCALC VS WEST LIME - 0.70000E400 

ESTIMATED GROSS NEKST - 0.5236SE405 
CALLING MODULE NUISER 1 
CALLING MODULE NUMBER 2 

WARMING : Canbat load factor raduoad from input valua of 
CALLING MODULE MUtSER € 

CALCULATED QttOSS WEIGHT - 0.503S1E405 

SLOPE or WCALC VS WEST LINE - 0.30000E+00 

ESTIMATED GROSS WEIGHT - 0.49700E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING ! Combat load factor raduoad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49699E405 


• * * END VEHICLE CONVERGENCE 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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2 COHVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * begin vehicle CONVERGENCE 

ESTIMATED GROSS HEIGHT - 0.49700E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49409E-t-05 

SLOPE OF WCALO VS WEST LIME - 0.70000E-f00 

ESTIMATED GROSS WEIGHT - 0.48729E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49164E-f05 

SLOPE OF WCALC VS WEST LINE - 0.30000Et00 

ESTIMATED GROSS WEIGHT - 0.49311E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Coaibat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49312E-t-05 


* * * END VEHICLE CONVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


• * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.49311E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.49049E-»-05 

SLOPE OF WCALC VS WEST LINE - 0.70000E-«-00 

ESTIMATED GROSS WEIGHT « 0.48438E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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CALCOIATED GROSS WEIGHT - 0.4e832E-t-05 


SLOPE OF HCALC VS WEST LINE -> 0.30000E-i-00 

ESTIMATED GROSS HEIGHT - 0.48962E-t-05 
CALLING MODULE NOMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED ««OSS WEIGHT - 0.489€0E-t-0S 


* * * END VEHICLE CONVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.48962E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING 3 Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.48720Et05 

SLOPE OF WCALC VS WEST LINE « 0.70000E+00 

ESTIMATED GROSS WEIGHT - 0.46156E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CAIiLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.48517E-I-05 

SLOPE OF WCALC VS WEST LINE - 0.30000E-I-00 

ESTIMATED GROSS WEIGHT - 0.48639b-l-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING 3 Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.4B63BE-i-05 


* * * END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* • * BEGIN VEHICLE CONVERGENCE 


5.000000 


5.000000 


5.000000 


5.000000 
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ESTIMATED GROSS HEIGHT - 0.48639E-t-05 
CALLING MODOLE NUMBER 1 
CALLING MODOLE NUMBER 2 

WARNING : Combat load factor raducad £r«n input valua of 
CALLING MODOLE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.48411E-t-05 

SLOPE OF WCALC VS WEST LINE - 0.70000E-*-00 

ESTIMATED GROSS WEIGHT - 0.47879E405 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER € 

CALCULATED GROSS WEIGHT - 0.48223E-(-05 

SLOPE OF WCALC VS WEST LINE - 0.30000E-I-00 

ESTIMATED GROSS WEIGHT - 0.48336E-I-05 
CALLING MODOLE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.4833€E-(-05 


* * * end VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.48336E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING ! Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.48118E-«-05 

SLOPE OF WCALC VS WEST LINE - 0.70000Et00 

ESTIMATED GROSS WEIGHT - 0.47608E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.47937E-(-05 

SLOPE OF WCALC VS WEST LINE - 0.30000E-»-00 

ESTIMATED GROSS WEIGHT - 0.48045E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input value of 
CALLING MODULE NUMBER 6 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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CALCOIATED GROSS NEIGBT - 0.48047E-t-05 


* * * END VEHICLE CONVERSEHCE 

2 CONVER(»HCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAFULT 
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STANDARD SENSITIVITY ANALYSIS RESULTS (NCALC-3) 


TITLE 

A-10 SENSITIVITY STUDY 


NUMBER OF SENSITIVITY VARIABLES, NSV - 2 

NUMBER OF SENSITIVITY OBJECTIVES, NSOBJ - 1 


GLOBAL NUMBERS ASSOCIATED WITH SENSITIVITY VARIABLES 
514 337 


GLOBAL NUMBERS ASSOCIATED WITH SENSITIVITY OBJECTIVES 
585 


NOMINAL DESIGN INFORMATION 

VALUES OF SENSITIVITY VARIABLES 
O.lOOOOE+00 0.16000E-f02 


VALUES OF SENSITIVITY OBJECTIVE FUNCTIONS 
0.50122E-f05 


SENSITIVITY ANALYSIS RESULTS 


GLOBAL VARIABLE 514 


X 


F(X) 


0.2500E+00 

0.4000E-»-00 

0.5500E-I-00 

0.6900E+00 

0.8400E-t-00 

0.9900E-t-00 


0.4958E-«-05 

0.4914E-I-05 

0.4e76E-»-05 

0.4846E-«-05 

0.4818E-»-05 

0.4793E-I-05 


GLOBAL VARIABLE 337 


X 


F(X) 


0.1750E+02 

0.1900E-f02 

0.2050E+02 

0.2200E-I-02 

0.2350E+02 

0.2500E-I-02 


0.4970E+05 

0.4931E-t-05 

0.4896E-t-05 

0.4864E+05 

0.4834E-f05 

0.4805E-«'05 
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Xn. EXAMPLE THREE 


A. OVERVIEW 

This escample will demonstrate the use of the Optimization Method of 
anal 3 rsis. The goal of this exercise is to reduce the take-off gross wmght by 
reducing the wing reference area, subject to a constraint on the turning rate 
during combat. In this case, a hypothetical contract for the aircraft under 
development specifies a fnininnitn turning rate of 10 degrees per second while 
delivering weapons. 

B. OPTIMIZATION INPUTS 

The following inputs will be needed for this analysis: 

* Objective Variable: Total Aircraft Wei^t 

Global Number: 585 

* Design Variable #1: Wing Reference Area. 

Global Number: 422 
Range: 300.0 - 800.0 ft* 

* Constraint #1: Sustained Turning Rate, Phase 4 (combat) 

Global Number: 450 
Range: 10.0 -12.0 deg/s 

Use the following procedure: 

'' Start CREATE and open the AlO data file. 
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• Change the Analysis Method to (2) Optimization 

• Title: A-10 Optimization Study 

• Objective Variable Global Number: 585 

• Minimize 

• 1 Design Variable 

• Design Variable #1 Global Number: 422 

• Upper Bound: 800.0 

• Lower Bound: 300.0 

• 1 Constraint 

• Constraint #1 Global Number: 450 

• Upper Boimd: 12.0 deg/s 

• Lower Bound: 10.0 deg/s 

• Aircraft Type: Bomber 

« Proceed through the rest of CREATE without changes. 

This run will take approximately 15 minutes. The output is quite long 
for the Optimization Method. The first part of the output is a complete 
convergence run using a starting value (provided by CREATE) for the design 
variable and has been omited here for the sake of brevity. The Optimization 
process begins with the model converged using a wing area of 550 square feet. 
ACSYNT then proceeds to determine the minimum weight achievable within 
the given constraint. The final values are shown on page 144. The weight is 
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46068 lbs with a wing area of 387.54 square feet, giving a turning radius of 
9.998 degrees/second. Compare this to the original weight of 47121 lbs. A 
final printout is then made using this new wing area. 

Obviously, this minimum wing area should be taken with a grain of salt. 
While ACSYNT can perform the mission given with this wing, it does not take 
into account the real-world requirements (such as bomb station spacing). The 
A-10 also has additional wing area built in as a survivability enhancement 
feature. ACSYNT is only concerned with satisfying the mission trajectory. 


134 



* * * 
* 
* 
* 
* 
* 
* 
* 

* * K 

INITIAL rOMCTION INFORMATION 
OBJ - 0.477200E-I-05 

DECISION VARIABLES (X-VECTOR) 

1) 0.55000E-f03 


CONSTRAINT VALOES (G-VECTOR) 

1) -0.77487E-01 -0.10209E+00 


************************ 

* 

* C O N M I N 

* 

* FORTRAN PROOIAM FOR 

* 

* CONSTRAINED FONCTION MINIMIZATION 

* 

************************ 


* * * BEGIN VEHICLE CONVERGENCE 


ESTIMATED GROSS HEIGHT - 0.47718E-f05 
CALLING MODOLE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor xaduoad from input value of 5.000000 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.47802E-I-05 

SLOPE OF HCALC VS HEST LINE - 0.70000E+00 

ESTIMATED GROSS HEIGHT - 0.47997Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 5.000000 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.47871E-I-05 

SLOPE OF HCALC VS HEST LINE > 0.30000E400 

ESTIMATED GROSS HEIGHT - 0.47e30E405 
CALLING MCX>ULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Cofobat load factor reduced from input value of 5.000000 
CALLING MODULE NUMBER 6 

CALCULATED (MtOSS HEIGHT - 0.47831E405 


* * * end vehicle convergence 
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2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


• * * begin vehicle CONVERGENCE 

ESTIMATED GROSS HEIGHT « 0.47830E-t-0S 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS NEIGHT - 0.47319E-I-05 

SLOPE OF NCALC VS NEST LINE - 0.70000E-I-00 

ESTIMATED GROSS WEIGHT - 0.46127E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.46915Et05 

SLOPE OF WCALC VS NEST LIME - 0.30000E-t-00 

ESTIMATED GROSS NEIGHT - 0.47160E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER € 

CALCULATED GROSS WEIGHT - 0.4715eE+0S 


* * * END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.47160E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 


CALCULATED tmOSS WEIGHT - 0.45S79E-»-05 


5.000000 


5.000000 


5.000000 


5.000000 
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SLOPE OF WCALC VS ffEST LINE - 0.70000E+00 


ESTIMATED GROSS WEIGHT -> 0.42222E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combct load factor raducad from input valua of 
CALLING MODULE NUMBER S 

CALCULATED GROSS WEIGHT - 0.44317E-I-05 

SLOPE or WCALC VS WEST LINE - 0.30000E+00 

ESTIMATED GROSS WEIGHT - 0.43115E+05 
CALLING MODULE NUMBER 1 
CALLING M(H}ULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45103E-«-05 

SLOPE OF WCALC VS WEST LIME - 0.30000Et00 

ESTIMATED GROSS WEIGHT - 0.45099E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input valua of 
CALLING KX)DULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45100E+0S 


• * * END VEHICLE CCBTVERGEMCE 


3 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 


• * • BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.45099Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45S40E-f05 

SLOPE OF WCALC VS WEST LINE - 0.70000E-«-r j 

ESTIMATED GROSS WEIGHT - 0.47570E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 


CALCULATED GROSS WEIGHT - 0.46449E-t-05 


SLOPE OF WCALC VS WEST LINE - 0.30000E+00 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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5.000000 


ESTIMATED CROSS HEIGHT - 0.460e2E+05 
CALLING MODOLE NUMBER 1 
CALLING MCH>ULE NUMBER 2 

HARMING : Combat load factor raduead fr<»i input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.46084E-«-05 


* * * END VEHICLE CONVERGENCE 


2 COMVEROTMCE ITERATIONS REQUIRED 
CALLING MCH)ULE NUMBER 10 


INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * • begin vehicle convergence 


ESTIMATED GROSS HEIGHT - 0.4€0e2E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARNIMG : Combat load factor raduead from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.46146E-»-05 


SLOPE OF HCALC VS HBST LIME - 0.70000E-I-00 

ESTIMATED GROSS HEIGHT •• 0.46293Et05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING > Combat load factor raduead from input valua of 
CALLING MODULE NUMBER « 

CALCULATED GROSS HEIGHT - 0.46195E+05 

SLOPE OF HCALC VS HBST LINE - 0.30000E-fOO 

ESTIMATED GROSS HEIGHT - 0.46165E-»-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING : Coodbat load factor raduead from input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.46167E-»'05 


* * • end vehicle convergence 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


5.000000 


5.000000 


5.000000 
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* * • begin vehicle convergence 


ESTIMATED GROSS HEIGHT - 0.46165E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

IfARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 


CALCULATED GROSS WEIGHT - 0.45398E-t-05 


SLOPE OF NCALC VS NEST LINE - O.TOOOOEtOO 


ESTIMATED GROSS WEIGHT - 0.43€10E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.44694Et05 

SLOPE OF WCALC VS WEST LINE - 0.30000E-fOO 

ESTIMATED GROSS WEIGHT - 0.45107E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45102E-«-05 

SLOPE OF WCALC VS WEST LIME - 0.30000E+00 

ESTIMATED GROSS WEIGHT - 0.4S099E4-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45100E+05 


* * * END VEHICLE CONVERGENCE 


3 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

* * * BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS WEIGHT - 0.45099E-«-05 
CALLING MCE>ULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor reduced from input value of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.451€5E-t-05 

SLOPE OF WCALC VS WEST LINE • 0.70000E-*-00 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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0.45317E+05 


ESTIMATED GROSS WEIGHT - 
CALLING MOOOLE HOMBER 1 
CALLING MOOOLE NOMBER 2 
WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NOMBER 6 

CALCULATED GROSS WEIGHT - 0.4S226E-t-05 

SLOPE OF WCALC VS WEST LIME - 0.SOOOOEtOO 

ESTIMATED GROSS WEIGHT - 0.45191E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from Input valua of 
CALLING MODULE NUMBER 6 

CALCULATED GROSS WEIGHT - 0.45191E-I-05 


• • * end vehicle CONVERGENCE 


2 CONVER(»MCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 


• • • begin vehicle convergence 

ESTIMATED CROSS WEIGHT - 0.45191E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 


CALCULATED GROSS WEIGHT - 0.45849E-I-05 

SLOPE or WCALC VS WEST LINE - 0.70000E400 

ESTIMATED GROSS WEIGHT • 0.47384E-«-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARMING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER « 


CALCULATED GROSS WEIGHT - 0.46393E-f05 


SLOPE or WCALC VS WEST LINE - 0.30000E-f00 

ESTIMATED GROSS WEIGHT - 0.46066E-I-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER € 


CALCULATED GROSS WEIGHT - 0.46068Et05 


* * * END VEHICLE CONVERGENCE 


5.000000 


5.000000 


5.000000 


5.000000 


5.000000 
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2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 


INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


* * * BEGIN VEHICLE CONVERGENCE 


ESTIMATED GROSS HEIGHT - 0.46066E4-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from Input valua of 
CALLING MODULE NUMBER € 

CALCULATED GROSS HEIGHT « 0.46129E-i-05 

SLOPE OF HCALC VS WEST LINE - 0.70000E-t-00 


ESTIMATED GROSS HEIGHT - 0.46277E-t-05 

CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from Input valua of 
CALLING MODULE NUMBER 6 


CALCULATED GROSS HEIGHT - 0.46180Et05 


SLOPE OF HCALC VS WEST LINE - 0.SOOOOEtOO 


ESTIMATED GROSS HEIGHT - 0.46149E-f05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

WARNING : Combat load factor raducad from input valua of 
CALLING MODULE NUMBER 6 


CALCULATED GROSS HEIGHT - 0.46149E4'05 


* * * END VEHICLE CONVERGENCE 


2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODULE NUMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


5.000000 


5.000000 


5.000000 
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FINAL OPTIMIZATION INFORMATION 


OBJ > 0.4606e0E-«-05 


DECISION VARIABLES (X-VECTOR) 
1) 0.38754E+03 


CONSTRAINT VALDES (G-VECTOR) 

1) 0.10319E-03 -0.16675E+00 


THERE ARE 1 ACTIVE CONSTRAINTS 
CONSTRAINT NOMBERS ARE 
1 


THERE ARE 0 VIOLATED CONSTRAINTS 

THERE ARE 0 ACTIVE SIDE CONSTRAINTS 


TERMINATION CRITERION 

ABS(OBJ(I)-OBJ(I-l)) LESS THAN DABFDN FOR 3 ITERATIONS 
NOMBER OF ITERATIONS - 4 

OBJECTIVE FDNCTION MAS EVALUATED 10 TIMES 


CONSTRAINT FUNCTIONS MERE EVALUATED 10 TIMES 


• * « BEGIN VEHICLE CONVERGENCE 

ESTIMATED GROSS HEIGHT - 0.46149E+05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

EARNING : Combat load factor raducad from input valua of 5.000000 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT > 0.46087E-t-05 

SLOPE OF HCALC VS MEST LIME - 0.70000E+00 

ESTIMATED GROSS HEIGHT - 0.45943E-I-0S 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING 1 Combat load factor raducad from input valua of 5.000000 
CALLING MODULE NUMBER 6 

CALCULATED GROSS HEIGHT - 0.46038E-t-05 

SLOPE OF HCALC VS NEST LINE - 0.30000E+00 

ESTIMATED GROSS HEIGHT - 0.480e8E-t-05 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 

HARMING : Combat load factor raducad from input value of 5.000000 
CALLING MODULE NUMBER 6 
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CALCOIATED GROSS HEIGHT - 0.46068E-t-05 


* * * END VEHICLE CONVERGENCE 

2 CONVERGENCE ITERATIONS REQUIRED 
CALLING MODOLE NOMBER 10 

INSUFFICIENT THRUST IF ENGINE LOST OFF CATAPULT 


143 






OPTIMIZATION RESULTS 


OBJECTIVE FUNCTION 


GLOBAL 

LOCATION 

585 FUNCTION VALUE 0.46068E+05 


DESIGN 

VARIABLES 





D. V. 

GLOBAL 

LOWER 

UPPER 

ID 

NO. 

VAR. NO. 

BOUND VALUE 

BOUND 

1 

1 

422 

0.30000E-I-03 0.38754E-t-03 

0.80000E-I-03 


DESIGN CONSTRAINTS 



GLOBAL 

LONER 


UPPER 

ID 

VAR. NO. 

BOUND 

VALUE 

BOUND 

1 

450 0. 

10000Et02 

0.999a5E-l-01 

0.12000E-«-02 

CALLING 

MODULE NUMBER 

1 



CALLING 

MODULE NUMBER 

2 




WARNING : Combat load factor raduoad from input valua of 5.000000 
CALLING MODULE NUMBER 6 
CALLING MODULE NUMBER 1 
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NASA/AMES A C S Y H T **FINAL ODTPOT** 

FOSELAGE DEFINITION NACELLE DEFINITION NACELLE LOCATION 


X 

R 

AREA X-XNOSE 

0.00 

0.00 

0.00 0.00 

1.07 

0.78 

1.92 2.72 

2.13 

1.26 

4.98 8.17 

3.20 

1.63 

8.36 10.89 

4.27 

1.93 

11.69 

5.33 

2.17 

14.74 

6.40 

2.35 

17.36 

7.47 

2.49 

19.43 

8.53 

2.58 

20.86 

9.60 

2.62 

21.62 

10.67 

2.63 

21.73 

11.73 

2.63 

21.73 

12.80 

2.63 

21.73 

13.87 

2.63 

21.73 

14.93 

2.63 

21.73 

16.00 

2.63 

21.73 

17.07 

2.63 

21.73 

10.13 

2.63 

21.73 

19.20 

2.63 

21.73 

20.27 

2.63 

21.73 

21.33 

2.63 

21.73 

22.40 

2.63 

21.73 

23.47 

2.63 

21.73 

24.53 

2.63 

21.73 

25.60 

2.63 

21.67 

26.67 

2.62 

21.53 

27.73 

2.60 

21 30 

28.80 

2.58 

20.98 

29.86 

2.56 

20.58 

30.93 

2.53 

20.09 

32.00 

2.49 

19.52 

33.06 

2.45 

18.87 

34.13 

2.40 

18.15 

35.20 

2.35 

17.35 

36.26 

2.29 

16.49 

37.33 

2.23 

15.55 

38.40 

2.15 

14.57 

39.46 

2.07 

13.52 

40.53 

1.99 

12.43 

41.60 

1.90 

11.30 

42.66 

1.80 

10.14 

43.73 

1.69 

8.95 

44.80 

1.57 

7.75 

45.06 

1.44 

6.55 

46.93 

1.31 

5.36 

48.00 

1.16 

4.21 

49.06 

0.99 

3.10 

50.13 

0.81 

2.08 

51.20 

0.61 

1.16 

52.26 

0.37 

0.42 

53.33 

0.00 

0.00 



••FUSELAGE** 

MAX. DIAMETER... 

5.260 

FINENESS 

RATIO. . 

. .. 10.139 

SURFACE 

AREA.... 

702.864 

VOLUME.. 


809.360 


R 

AREA 

X 

Y 

Z 

2.18 

14.92 

32.00 

5.25 

0.00 

2.18 

14.92 

32.00 

-5.25 

0.00 

2.18 

14.92 




2.18 

14.92 





**PODS** 

4.359 

149.095 (EACH) 
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NASA/AMES A C S Y N T **FIHAI. OOTPOT** 
DIMBHSZOMS OF PLANAR SURFACES 




WING 

H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN AREA. 


387.5 

118.4 

54.1 

0.0 

(SQ.FT.) 

SURFACE AREA... 


775.4 

189.0 

102.7 

0.0 

(SQ.FT.) 

VOLUME. 


311.3 

67.8 

27.1 

0.0 

(CU.FT.) 

SPAN. 


50.344 

18.815 

9.702 

0.000 

(FT.) 

L.E. SWEEP. 


0.000 

0.000 

0.000 

0.000 

(DBG.) 

C/4 SWEEP. 


“1.794 

-0.096 

-3.982 

0.000 

(DBG.) 

T.E. SWEEP. 


“7.140 

-0.385 -15.559 

0.000 

(DEG.) 

ASPECT RATIO .. 


6.540 

2.990 

1.740 

0.000 


ROOT CHORD. 


9.275 

6.324 

6.927 

0.000 

(FT.) 

ROOT THICKNESS. 


17.807 

9.866 

10.806 

0.000 

(IN.) 

ROOT T/C . 


0.160 

0.130 

0.130 

0.000 


TIP CHORD. 


6.121 

6.261 

4.225 

0.000 

(FT.) 

TIP THICKNESS.. 


9.549 

9.767 

6.084 

0.000 

(IN.) 

TIP T/C . 


0.130 

0.130 

0.120 

0.000 


TAPER RATIO ... 


0.660 

0.990 

0.610 

0.000 


MEAN AERO CHORD 


7.805 

6.293 

5.685 

0.000 

(FT.) 

LE ROOT AT. 


22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4 ROOT AT.... 


25.065 

46.987 

46.535 

0.000 

(FT.) 

TB ROOT AT. 


32.021 

51.730 

51.730 

0.000 

(FT.) 

LB M.A.C. AT... 


22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4 M.A.C. AT.. 


24.698 

46.979 

46.225 

0.000 

(FT.) 

TE M.A.C. AT... 


30.552 

51.699 

50.488 

0.000 

(FT.) 

Y M.A.C. AT_ 


11.727 

4.696 

4.459 

0.000 


LE TIP AT. 


22.746 

45.406 

44.803 

0.000 

(FT.) 

C/4 TIP AT. 

s s s s 

24.277 

46.971 

45.860 

0.000 

(FT.) 

TE TIP AT. 

s s s s 

28.868 

51.667 

49.029 

0.000 

(FT.) 

ELEVATION. 

s s s s 

-2.630 

0.000 

-2.367 

0.000 

(FT.) 

VOLUME COEFF. . 

s s s • 


0.872 

0.060 

0.000 


EXT 

E N S 

IONS 







Strsfcs Rssr Extsnsion 


Csntxold looatlon st. 


0.000 

0.000 



Axss. 



0.000 

0.000 



Wsttsd Arss.... 



0.000 

0.000 



VelusM. 



0.000 

0.000 



Swssp Angls.... 



0.000 




F U E 

L T 

A N K S 





TANK VOLUME 

WEIGHT DENSITY 



WING 

57. 

2750 

48 

.62 



FUSfl 

179. 

8689 

48 

.62 



FUSf2 

0. 

0 

50 

.00 



TOTAL 


11438 

• 




MISSION FUEL REQUIRED- 11438. 




AVAILABLE FUEL 

VOLUME IN WING- 

298. 




AIRCRAFT WEIGHT - 
AIRCRAFT VOLOME - 
AIRCRAFT DENSITY - 
CASE- 4 


46067.734 Lbs. 
1215.551 Cu.Ft. 

37.899 Lbs./Cu.Ft. 


CALLING MODULE NUMBER 2 
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TRAJECTORY OUTPUT 


MISSION 1 (PAYLOAD - 14000. LB) 


PHASE 

M 

H 

CL 

ALPHA 

WFUEL 

TIME 

VEL 


SFC(I) 

THRUST(I) 

CD 

GMMA 

H 

NA 

Q 


SFC(U) 

THRUST(U) 

CDINST 

L/D 

THR/THA 

PR 

X 

CLIMB 

0.53 

5000. 

0.3494 

2.81 

99.3 

0.87 

576 


0.59 

11118. 

0.0308 

8.89 

45623.4 

311.98 

340 

CYCLE 

0.58 

0. 

0.0012 

11.34 

2.00 

1.00 

5 

CRUISE 

0.50 

5000. 

0.3686 

3.01 

2412.6 

42.46 

549 


0.90 

3778. 

0.0317 

0.00 

43210.8 

254.79 

308 

CYCLE 

0.86 

3925. 

0.0012 

11.64 

0.67 

1.00 

230 

CRUISE 

0.50 

100. 

0.3004 

2.42 

495.2 

7.26 

558 


0.98 

4164. 

0.0292 

0.00 

42715.6 

298.70 

369 

CYCLE 

0.94 

4335. 

0.0012 

10.29 

0.65 

1.00 

40 

COMBAT 

0.60 

100. 

0.7751 

6.41 

3794.1 

30.00 

670 


0.65 

11741. 

0.0567 

0.00 

36073.5 

356.43 

531 

CYCLE 

0.63 

12018. 

0.0013 

13.68 

1.94 

1.00 

198 

CRUISE 

0.50 

100. 

0.2506 

2.00 

471.3 

7.26 

558 


0.98 

3966. 

0.0277 

0.00 

35602.2 

296.53 

369 

CYCLE 

0.94 

4143. 

0.0012 

9.04 

0.62 

1.00 

40 

CLIMB 

0.51 

5000. 

0.2721 

2.17 

73.3 

0.65 

563 


0.59 

11178. 

0.0283 

12.39 

35528.9 

309.69 

324 

CYCLE 

0.58 

0. 

0.0012 

9.62 

2.00 

1.00 

3 

CRUISE 

0.50 

5000. 

0.2844 

2.28 

2341.3 

42.46 

549 


0.96 

3425. 

0.0287 

0.00 

33187.6 

253.66 

308 

CYCLE 

0.92 

3569. 

0.0012 

9.92 

0.61 

1.00 

230 

LOITER 

0.27 

500. 

0.8075 

7.59 

766.3 

20.00 

301 


0.82 

2791. 

0.0678 

0.00 

32421.3 

250.65 

106 

CYCLE 

0.81 

2835. 

0.0011 

11.90 

0.38 

1.00 

59 
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FOEL SOMMARIES 


MISSIOM FOEL «» 10798. 
RESERVE FOEL - 540. 
TRAPPED FOEL - 100. 


TOTAL FOEL - 11438. 


TAKEOFF FOEL 
HFTOl - 120. 

IIFT02 - 225. 


FOEL CARRIED : 
EXTERNALLY - 0. 

INTERNALLY 11438. 


ADDITIONAL COMBAT PARAMETERS 



CONDITIONS 

PS 

NZ 

TDOT 

RADIOS 

ALPHA 

CL 

CD 

M- 0.60 

1 G FLIGHT 

98.8 

1.00 

0.00 

0. 

1.55 

0.207 

0.0264 

H- 100. 

SOSTAINED 

0.0 

3.77 

10.00 

3837. 

6.41 

0.775 

0.0567 


MAX. INST. 

-550.2 

5.96 

16.17 

2372. 

11.00 

1.225 

0.2264 


COMBAT ENERGY - 0.177918E-t-06 


BLOCK TIME 
BLOCK RANGE 

TAKEOFF FIELD LENGTH(TOTAL RON) 
LANDING FIELD LENGTH(TOTAL RON) 
LANDING FIELD LENGTH(GROOND RON) 
HEIGHT FOR LANDING CALCOLATION 
LANDING THROST TO HEIGHT RATIO 

TAKEOFF HEIGHT 
LANDING HEIGHT 


2.516 

HOORS 

806.2 

N. M. 

3268. 

FEET 

6438. 

FEET 

2193. 

FEET 

39605. 

POUNDS 

0.485 


46068. 

POUNDS 

32421. 

POUNDS 


CALLING MODOLE NOMBER 3 


Datallvd Aarodynamlos Output 

Maoh - 0.20 
Altituda > 0. 


Paraaita Drag 


Induoad Drag 


Friction 

.0190 

Alpha 

Body 

.0042 

0.0 

Hing 

.0079 

3.0 

Strakas 

.0000 

6.0 

H. Tail 

.0019 

0.0 

V. Tail 

.0021 

9.0 

Canard 

.0000 

12.0 

Pods 

.0028 

15.0 

Engina 

.0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 

Intarfaranoa 

.0059 


Nava 

.0000 


Extarnal 

.0057 


Tanks 

.0000 


Bondbs 

.0000 



Cl 

Cd 

L/D 

Cm 

0.005 

0.0306 

0.2 

0.048 

0.338 

0.0368 

9.2 

-.037 

0.644 

0.0541 

11.9 

-.122 

0.005 

0.0306 

0.2 

0.048 

0.930 

0.0810 

11.5 

-.208 

1.205 

0.1173 

10.3 

-.298 

1.475 

0.1632 

9.0 

-.391 

1.747 

0.2196 

8.0 

-.489 

2.026 

0.2878 

7.0 

-.589 

2.301 

0.3657 

6.3 

-.686 


Slopa Factors 
ClAlpha 
Cdl''. 5Alpha 


a Cdtrlm Daltrlm Zona 


0.00 

0.0000 

0.0 

2 

0.89 

0.0000 

0.0 

2 

0.86 

0.0000 

0.0 

2 

0.00 

0.0000 

0.0 

2 

0.84 

0.0000 

0.0 

2 

0.82 

0.0000 

0.0 

2 

0.80 

0.0000 

0.0 

2 

0.79 

0.0000 

0.0 

2 

0.78 

0.0000 

0.0 

2 

0.77 

0.0000 

0.0 

2 


0.0957 

0.0241 
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Stoz«s 

Extra 

Caaibaz 


0000 

0057 

0000 


Cdnin 

.0306 

Mach ■ 

0.30 

Altitude • 

0. 

Parasite Drag 
Friction 

.0189 

Body 

.0042 

Wing 

.0078 

Strakes 

.0000 

R. Tall 

.0019 

V. Tall 

.0021 

Canard 

.0000 

Pods 

.0028 

Engine 

.0000 

Cowl 

.0000 

Boattall 

.0000 

Interference 

.0059 

Have 

.0000 

External 

.0057 

Tanka 

.0000 

Bombs 

.0000 

Stores 

.0000 

Extra 

.0057 

Casiber 

.0000 


cSUn .0305 


Detailed 

0 

1 

1 

0 

H 

Mach 

a 

0.60 

Altitude 

■ 

5000. 

Parasite 

Drag 

Friction 


.0183 

Body 


.0041 

Hlng 


.0076 

Strakes 


.0000 

H. Tall 


.0019 

V. Tall 


.0020 

Canard 


.0000 

Pods 


.0027 

Engine 


.0000 

Cowl 


.0000 

Boattall 

.0000 

Interference 

.0059 

Have 


.0000 

External 


.0000 

Tanks 


.0000 

Bombs 


.0000 

Stores 


.0000 

Extra 


.0000 

Casber 


.0000 


- TWSn 


Induced Drag 
Alpha Cl 

Cd 

L/D 

Cm 

e Cdtrlm Deltrim Zone 

0.0 

0.005 

0.0305 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

3.0 

0.345 

0.0369 

9.3 

-.042 

0.90 

0.0000 

0.0 

2 

6.0 

0.655 

0.0546 

12.0 

-.130 

0.87 

0.0000 

0.0 

2 

0.0 

0.005 

0.0305 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

9.0 

0.945 

0.0821 

11.5 

-.219 

0.84 

0.0000 

0.0 

2 

12.0 

1.222 

0.1190 

10.3 

-.311 

0.82 

0.0000 

0.0 

2 

15.0 

1.492 

0.1654 

9.0 

-.407 

0.80 

0.0000 

0.0 

2 

18.0 

1.762 

0.2220 

7.9 

-.506 

0.79 

0.0000 

0.0 

2 

21.0 

2.041 

0.2909 

7.0 

-.608 

0.78 

0.0000 

0.0 

2 

24.0 

2.239 

0.9546 

2.3 

-.796 

0.26 

0.0000 

0.0 

3 


Slope Factors 

ClAlpha 0.0931 

Cdl''.5Alpha 0.0401 


Output 


Induced Drag 
Alpha Cl 

Cd 

L/D 

Cm 

e Cdtrlm Deltrim Zone 

0.0 

0.005 

0.0242 

0.2 

0.047 

0.00 

0.0000 

o.c 

2 

3.0 

0.386 

0.0320 

12.1 

-.057 

0.94 

0.0000 

0.0 

2 

6.0 

0.730 

0.0529 

13.8 

-.157 

0.90 

0.0000 

0.0 

2 

0.0 

0.005 

0.0242 

0.2 

0.047 

0.00 

0.0000 

0.0 

2 

9.0 

1.041 

0.0844 

12.3 

-.258 

0.88 

0.0000 

0.0 

2 

12.0 

1.283 

0.2572 

5.0 

-.379 

0.34 

0.0000 

0.0 

3 

15.0 

1.503 

0.3789 

4.0 

-.495 

0.31 

0.0000 

0.0 

3 

18.0 

1.704 

0.5252 

3.2 

-.618 

0.28 

0.0000 

0.0 

3 

21.0 

1.882 

0.6933 

2.7 

-.748 

0.26 

0.0000 

0.0 

3 

24.0 

2.022 

0.8750 

2.3 

-.878 

0.23 

0.0000 

0.0 

3 


Slope Factors 

ClAlpha 0.0841 

Cdl^.5Alpba 0.0384 
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Mach 

Altitude 


0.70 

5000. 


Paraalta Drag Induced Drag 

rriction .0180 Alpha Cl Cd L/D 

Body .0040 0.0 0.005 0.0240 0.2 

Wing .0075 3.0 0.414 0.0327 12.7 

Strakea .0000 6.0 0.779 0.0559 13.9 

B. Tail .0018 0.0 0.005 0.0240 0.2 

V. Tall .0020 9.0 1.100 0.1739 6.3 

Canard .0000 12.0 1.331 0.2738 4.9 

Pods .0027 15.0 1.557 0.4020 3.9 

Engine .0000 18.0 1.675 0.5792 2.9 

Cowl .0000 21.0 1.778 0.7240 2.5 

Boattall .0000 24.0 1.859 0.8785 2.1 


Interference 

.0059 



Nave 

.0000 



External 

.0000 

Slope Factors 


Tanka 

.0000 

ClAlpha 

0.0772 

Bombs 

.0000 

Cdl^.SAlpha 

0.0385 

Stores 

.0000 



Extra 

.0000 



Camber 

.0000 




Cm e Cdtrlm Deltrim Zone 


0.047 

0.00 

0.0000 

0.0 

2 

-.064 

0.96 

0.0000 

0.0 

2 

-.170 

0.92 

0.0000 

0.0 

2 

0.047 

0.00 

0.0000 

0.0 

2 

-.288 

0.39 

0.0000 

0.0 

3 

-.401 

0.35 

0.0000 

0.0 

3 

-.522 

0.31 

0.0000 

0.0 

3 

-.614 

0.25 

0.0000 

0.0 

4 

-.740 

0.22 

0.0000 

0.0 

4 

-.867 

0.20 

0.0000 

0.0 

4 


CALLING MODOLE NUMBER 
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ENGINE SOIAARY 


ENGINE DIAMETER - 4.35 FEET 

ENGINE LENGTH- 8.33 FEET 
ENGINE HEIGHT- 1478.00 POUNDS 
BYPASS RATIO - 6.23 

NO OF ENGINES PER AC - 2. 

A/C DRAG REF AREA - 387.54 SQ FEET 

INLET CAPTURE AREA PER ENG - 6.190 SQ FEET 

PNCC - PERCENT OF ENGINE CORRECTED AIRFLOW 
THRUST - ENGINE THRUST (POUNDS PER ENGINE) 

SFC - ENGINE SPECIFIC FUEL CONSUMPTION 

WTOT - ENGINE TOTAL AIRFLOW (LBS/SEC PER ENGINE) 

OV EF - ENGINE OVERALL EFFICIENCY 

PR EF - ENGINE PROPULSIVE EFFICIENCY 

TPR - INLET TOTAL PRESSURE RECOVERY (TO EN FACE) 

NPR - NOZZLE PRESSURE RATIO 

TIT - TURBINE INLET TEMPERATURE (DEG R) 

EGT - ENGINE EXHAUST GAS TEMPERATURE 

CPR - OVERALL COMPRESSOR PRESSURE RATIO 

THRUSTU- THRUST PER ENGINE IN LBS, W/0 INSTAL DRAG CORR 

SFCU - SFC,1/HR, N/0 INSTALLATION DRAG CORR 

ABYAC - FREESTREAM BYPASS FLOW AREA/AC 

ABLAC - FREESTREAM INLET BLEED FLOW AREA/AC 

ANOZ - AREA OF NOZZLE EXIT, FT**2 

BETA - NOZZLE BOATTAIL ANGLE IN DEGREES 

AO/AC - FREE STREAM TO CAPTURE AREA RATIO 

COINS - TOT INSTALLATION DRAG COEF PER A/C (SWING REF) 

CDADO - ADDITIVE DRAG COEF PER A/C (SWING REF) 

COSP - SUBSONIC SPILL DRAG COEFF PER A/C (SWING REF) 
CDBL - INLET BLEED DRAG COEF PER A/C (SWING REF) 

COBP - INLET BYPASS DRAG PER A/C (SWING REF) 

COAUX - AUX AIR SYSTEM DRAG COEF PER A/C (SWING REF) 
CDDIV - INLET BO. LAYER DIVERT DRAG PER A/C (SWING REF) 
CDBT » NOZZLE BOATTAIL DRAG COEF PER A/C (SWING REF) 
COINF - DRAG COEF OF BASE AREA BETWEEN NOZZLES (PER A/C) 

INSTALL DRAG COEF SCALE FACTORS 


SFINSP 

m 

1.0000 

SFADP 

m 

1.0000 

SFADSP 

m 

1.0000 

SFBEP 

m 

1.0000 

SFBPP 

m 

1.0000 

SFAUXP 

m 

1.0000 

SFDIVP 

m 

1.0000 

SFIP 

m 

1.0000 

SFBTP 

m 

1.0000 
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lACH - 0.000 ALTITOOE - 0.00 FEET 


PNCC 

THROST 

SFC 

NTOT 

OV EF 

PR BF 

TPR 

HPR 

TIT 

E6T 

CPR 


THRUSTO 

SFCO 

ABTAC 

ABLAC 

ANOZ 

BETA 






RO/AC 

COINS 

CDADO 

COSF 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO INF 

100.0 

9065. 

0.364 

290. 

0.000 

0.000 

1.000 

1.79 

2697. 

1540. 

22.49 


9065. 

0.364 

0.000 

0.000 

13.65 

11.17 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 


98.0 

8298. 

0.355 

285. 

0.000 

0.000 

1.000 

1.84 

2570. 

1486. 

21.51 


8298. 

0.355 

0.000 

0.000 

13.65 

11.84 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

96.0 

7495. 

0.348 

279. 

0.000 

0.000 

1.000 

1.92 

2447. 

1441. 

20.56 


7495. 

0.348 

0.000 

0.000 

13.65 

12.66 






1000.000 

0.0006 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0000 

94.0 

6619. 

0.348 

273. 

0.000 

0.000 

1.000 

2.05 

2329. 

1405. 

19.64 


6619. 

0.348 

0.000 

0.000 

13.65 

13.59 






1000.000 

0.0006 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0006 

0.0000 

92.0 

5582. 

0.362 

267. 

0.000 

0.000 

1.000 

2.25 

2214. 

1380. 

18.75 


5582. 

0.362 

0.000 

0.000 

13.65 

14.62 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

90.0 

4076. 

0.431 

261. 

0.000 

0.000 

1.000 

2.54 

2105. 

1367, 

17.88 


4076. 

0.431 

0.000 

0.000 

13.65 

15.69 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

88.0 

2118. 

0.717 

256. 

0.000 

0.000 

1.000 

2.52 

1999. 

1310. 

17.04 


2118. 

0.717 

0.000 

0.000 

13.65 

16.01 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

86.0 

1872. 

0.694 

250. 

0.000 

0.000 

1.000 

2.22 

1898. 

1218. 

16.23 


1872. 

0.694 

0.000 

0,000 

13.65 

15.68 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

84.0 

1624. 

0.677 

244. 

0.000 

0.000 

1.000 

1.95 

1802. 

1131. 

15.44 


1624. 

0.677 

0.000 

0.000 

13.65 

15.20 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

82.0 

1375. 

0.668 

238. 

0.000 

0.000 

1.000 

1.70 

1709. 

1049. 

14.68 


1375. 

0.668 

0.000 

0.000 

13.65 

14.49 






1000.000 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 
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eo.o 1114. 

0.678 232. 0.000 

0.000 1.000 1.48 1621. 

971. 

13.95 

1114. 

0.678 0.000 0.000 

13.65 13.36 



1000.000 

0.0006 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0006 

0.0000 


78.0 

827. 

0.735 

226. 

0.000 

0.000 

1.000 

1.27 

1536. 

897. 

13.24 


827. 

0.735 

0.000 

0.000 

13.65 

11.28 






1000.000 

0.0005 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0005 

0.0000 

76.0 

458. 

1.039 

221. 

0.000 

0.000 

1.000 

1.09 

1456. 

828. 

12.56 


458. 

1.039 

0.000 

0.000 

13.65 

5.40 






1000.000 

0.0002 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0002 

0.0000 



MACH - 

0.500 

ALTITUDE - 

0.( 

DO FEET 




PHCC 

THROST 

SFC 

NTOT 

OV EF 

PR EF 

TPR 

MPR 

TIT 

EGT 

CPR 


THROSTO 

SFCO 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

COADO 

COSP 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD INF 

100.0 

6143. 

0.594 

336. 

0.237 

0.622 

1.000 

1.79 

2697. 

1479. 

22.49 


6231. 

0.586 

0.000 

0.000 

13.65 

9.83 






1.270 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0005 


98.0 

5867. 

0.619 329. 0.228 

0.588 1.000 2.20 2697. 

1572. 21.51 


5956. 

0.610 0.000 0.000 

13.65 11.79 



1.244 

0.0012 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0008 0.0004 


96.0 

5127. 

0.630 

323. 

0.224 

0.586 

1.000 

2.30 

2570. 

1526. 

20.56 


5216. 

0.619 

0.000 

0.000 

13.65 

12.55 






1.219 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 

94.0 

4349. 

0.655 

316. 

0.216 

0.571 

1.000 

2.46 

2446. 

1488. 

19.64 


4439. 

0.642 

0.000 

0.000 

13.65 

13.39 






1.194 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 

92.0 

3509. 

0.712 

309. 

0.200 

0.533 

1.000 

2.70 

2326. 

1460. 

18.75 


3599. 

0.694 

0.000 

0.000 

13.65 

14.32 






1.168 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

90.0 

2546. 

0.854 

302. 

0.168 

0.451 

1.000 

3.04 

2211. 

1445. 

17.88 


2637. 

0.825 

0.000 

0.000 

13.65 

15.30 






1.143 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

88.0 

1917. 

0.981 

296. 

0.148 

0.406 

1.000 

3.01 

2100. 

1384. 

17.04 


2008. 

0.936 

0.000 

0.000 

13.65 

15.63 






1.117 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 
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86.0 

1648. 

0.977 289. 0.150 

0.430 1.000 2.66 1994. 

1288. 16.23 


1739. 

0.925 0.000 0.000 

13.65 15.40 



1.092 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0011 0.0002 


84.0 

1383. 

0.986 

282. 

0.150 

0.459 

1.000 

2.34 

1892. 

1196. 

15.44 


1474. 

0.925 

0.000 

0.000 

13.65 

15.08 






1.067 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

82.0 

1118. 

1.020 

276. 

0.147 

0.493 

1.000 

2.04 

1795. 

1109. 

14.68 


1207. 

0.944 

0.000 

0.000 

13.65 

14.59 






1.041 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 


80.0 

852. 

1.101 

269. 

0.139 

0.533 

1.000 

1.77 

1702. 

1026. 

13.95 


939. 

0.999 

0.000 

0.000 

13.65 

13.88 






1.016 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

78.0 

577. 

1.311 

262. 

0.121 

0.581 

1.000 

1.52 

1614. 

949. 

13.24 


660. 

1.145 

0.000 

0.000 

13.65 

12.76 






0.990 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 

76.0 

280. 

2.122 

255. 

0.083 

0.621 

1.000 

1.30 

1530. 

876. 

12.56 


354. 

1.675 

0.000 

0.000 

13.65 

10.73 






0.965 

0.0010 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0003 



lACH - 

0.500 

AZiTZTODE <• 

5000.00 FEET 




PWCC 

THRDST 

src 

MTOT 

ov *r 

PR EF 

TPR 

MPR 

TIT 

EOT 

CPR 


TBROSTO 

srco 

ABTAC 

ABIAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDAOO 

COSP 

CDBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD INF 

100.0 

5370. 

0.595 

285. 

0.232 

0.596 

1.000 

2.03 

2697. 

1523. 

22.49 


5443. 

0.587 

0.000 

0.000 

13.65 

10.80 






1.270 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 


98.0 

4865. 

0.604 

279. 

0.229 

0.590 

1.000 

2.18 

2606. 

1510. 

21.51 


4939. 

0.595 

0.000 

0.000 

13.65 

11.76 






1.245 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0004 

96.0 

4246. 

0.614 

273. 

0.226 

0.588 

1.000 

2.28 

2481. 

1464. 

20.56 


4320. 

0.604 

0.000 

0.000 

13.65 

12.50 






1.219 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0004 


94.0 

3601. 

0.639 268. 0.218 

0.574 1.000 2.44 

2361. 1428. 19.64 


3675. 

0.626 0.000 0.000 

13.65 13.35 



1.194 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 0.0009 0.0003 
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92.0 

2904. 

0.694 262. 0.202 

0.535 

1.000 

2.68 2245. 

1403. 18.75 


2979. 

0.677 0.000 0.000 

13.65 

14.29 




1.168 

0.0013 0.0000 0.0000 

0.0000 0.0000 

0.0000 0.0000 

0.0010 0.0003 


90.0 

2104. 

0.834 256. 0.169 

0.453 

1.000 

3.02 

2134. 1389. 

17.88 


2180. 

0.805 0.000 0.000 

13.65 

15.28 





1.143 

0.0013 0.0000 0.0000 

0.0000 0.0000 

0.0000 

0.0000 0.0011 

0.0002 


88.0 

1582. 

0.959 250. 0.149 

0.407 

1.000 

2.99 2027. 1331. 

17.04 


1658. 

0.915 0.000 0.000 

13.65 

15.61 




1.118 

0.0013 0.0000 0.0000 

0.0000 0.0000 

0.0000 0.0000 0.0011 

0.0002 


86.0 

1359. 

0.955 245. 0.151 

0.432 

1.000 

2.65 1925. 1238. 

16.23 


1435. 

0.905 0.000 0.000 

13.65 

15.38 




1.092 

0.0013 0.0000 0.0000 

0.0000 0.0000 

0.0000 0.0000 0.0011 

0.0002 


84.0 

1137. 

0.966 

239, 

0.151 

0.461 1.000 2.32 

1827. 1149. 

15.44 


1213. 

0.906 

0.000 

0.000 

13.65 15.04 




1.067 

0.0013 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 0.0010 

0.0002 


82.0 

918. 

1.000 

233. 

0.147 

0.495 

1.000 

2.03 

1733. 

1065. 

14.68 


992. 

0.925 

0.000 

0.000 

13.65 

14.55 






1.041 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0002 

80.0 

697. 

1.084 

228. 

0.139 

0.536 

1.000 

1.76 

1643. 

986. 

13.95 


769. 

0.982 

0.000 

0.000 

13.65 

13.83 






1.016 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 


78.0 

467. 

1.302 

222. 

0.120 

0.584 

1.000 

1.51 1558. 

911. 13.24 


536. 

1.134 

0.000 

0.000 

13.65 

12.67 




0.991 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 0.0000 

0.0009 0.0003 


76.0 

218. 

279. 

2.186 216. 0.080 
1.705 0.000 0.000 

0.621 1.000 1.29 1477. 

13.65 10.56 

841. 

12.56 


0.965 

0.0010 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0007 

0.0003 



MACH - 

0.570 

ALTITODE - 

5000. ( 

OO FEET 




PWCC 

THROST 

src 

NTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THROSTD 

SFCO 

ABYAC 

ABIAC 

ANOZ 

BETA 






AO/AC 

COINS 

CD ADO 

CDSF 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD IMF 

100.0 

5230. 

0.629 

297. 

0.252 

0.638 

1.000 

2.03 

2697. 

1506. 

22.49 


5332. 

0.617 

0.000 

0.000 

13.65 

10.42 






1.162 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0005 
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98.0 

4833. 

0.647 291. 0.246 

0.620 1.000 2.30 2643. 

1536. 21.51 


4937. 

0.633 0.000 0.000 

13.65 11.70 



1.139 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0009 0.0004 


96.0 

4207. 

0.659 285. 0.242 

0.616 1.000 2.41 2517. 

1489. 20.56 


4311. 

0.643 0.000 0.000 

13.65 12.43 



1.116 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0010 0.0004 


94.0 

3561. 

0.687 279. 0.233 

0.599 1.000 2.57 2395. 

1452. 19.64 


3666. 

0.667 0.000 0.000 

13.65 13.26 



1.093 

0.0014 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0010 0.0003 


92.0 

2872. 

0.747 273. 0.216 

0.559 1.000 2.82 2278. 

1426. 18.75 


2979. 

0.720 0.000 0.000 

13.65 14.17 



1.069 

0.0014 0.0000 0.0000 

0.0000 0.0000 0.0000 O.OCOO 

0.0011 0.0003 


90.0 

2105. 

0.887 267. 0.184 

0.478 1.000 3.18 2165. 

1411. 17.88 


2209. 

0.845 0.000 0.000 

13.65 15.15 



1.046 

0.0013 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0011 0.0002 


88.0 

1601. 

1.008 

261. 

0.165 

0.434 

1.000 

3.15 

2057. 

1352. 

17.04 


1707. 

0.945 

0.000 

0.000 

13.65 

15.48 






1.023 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

86.0 

1366. 

1.011 

255. 

0.166 

0.456 

1.000 

2.79 

1953. 

1258. 

16.23 


1476. 

0.936 

0.000 

0.000 

13.65 

15.27 






1.000 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

84.0 

1137. 

1.029 

249. 

0.166 

0.482 

1.000 

2.45 

1853. 

1168. 

15.44 


1246. 

0.939 

0.000 

0.000 

13.65 

14.96 






0.976 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0002 

82.0 

912. 

1.072 

244. 

0.162 

0.511 

l.COO 

2.14 

1758. 

1083. 

14.68 


1019. 

0.959 

0.000 

0.000 

13.65 

14.52 






0.953 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0002 


80.0 

686. 

1.173 

238. 

0.153 

0.543 

1.000 

1.85 

1667. 

1002. 

13.95 


791. 

1.017 

0.000 

0.000 

13.65 

13.88 






0.930 

0.0014 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0003 

78.0 

454. 

1.427 

232. 

0.133 

0.573 

1.000 

1.59 

1580. 

926. 

13.24 


555. 

1.167 

0.000 

0.000 

13.65 

12.87 






0.907 

0.0013 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0003 

76.0 

209. 

2.435 

226. 

0.092 

0.563 

1.000 

1.36 

1498. 

855. 

12.56 


301. 

1.689 

0.000 

0.000 

13.65 

11.14 






0.883 

0.0012 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0009 

0.0003 


156 





PWCC 


100.0 


98.0 


96.0 


94.0 


92.0 


90.0 


88.0 


86.0 


84.0 


82.0 




MACH - 0.700 ALTITUDE 


5000.00 FEET 


THROST 

SFC 

WTOT 

OV EF 

PR EF 

THROSTD 

SFCD 

ABYAC 

ABLAC 

AMOZ 

AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

5013. 

0.698 

325. 

0.284 

0.699 

5204. 

0.673 

0.000 

0.000 

13.65 

1.037 

0.0016 

0.0000 

0.0000 

0.0000 


4790. 

0,727 319. 0.274 

0.662 

4989. 

0.698 0.000 0.000 

13.65 

1.016 

0.0017 0.0000 0.0000 

0.0000 


4219. 

0.750 312. 0.267 

0.646 

4422. 

0.716 0.000 0.000 

13.65 

0.996 

0.0017 0.0000 0.0000 

0.0000 


3555. 

0.786 306. 0.257 

0.624 

3763. 

0.743 0.000 0.000 

13.65 

0.975 

0.0018 0.0000 0.0000 

0.0000 


2869. 

0.854 299. 0.240 

0.582 

3074. 

0.797 0.000 0.000 

13.65 

0.954 

0.0018 0.0000 0.0000 

0.0000 


2136. 

0.999 293. 0.208 

0.505 

2329. 

0.916 0.000 0.000 

13.65 

0.933 

0.0017 0.0000 0.0000 

0.0000 


1643. 

1.123 286. 0.191 

0.463 

1840. 

1.002 0.000 0.000 

13.65 

0,913 

0.0017 0.0000 0.0000 

0.0000 


1375. 

1.149 280. 0.192 

0.475 

1589. 

0.994 0.000 0.000 

13.65 

0.892 

0.0018 0.0000 0.0000 

0.0000 


1124. 

1.190 273. 0.192 

0.488 

1343. 

0.996 0.000 0.000 

13.65 

0.871 

0.0019 0.0000 0.0000 

0.0000 


881. 

1.270 267. 0.187 

0.502 

1098. 

1.019 0.000 0.000 

13.65 

0.850 

0.0019 0.0000 0.0000 

0.0000 


TPR 

BETA 

NPR 

TIT 

EGT 

CPR 

CDBP 

CDAOX 

CDDIV 

CDBT 

CD INF 

1.000 

9.53 

2.03 

2697, 

1467. 

22.49 

0.0000 

0.0000 

0.0000 

0.0010 

0.0006 

1.000 

11.31 

2.49 

2697. 

1560. 

21.51 

0.0000 

0.0000 

0.0000 

0.0012 

0.0005 

1.000 

12.20 

2.70 

2595. 

1543. 

20.56 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

1.000 

13.00 

2.88 

2470. 

1505. 

19.64 

0.0000 

0.0000 

0.0000 

0.0014 

0.0004 

1.000 

13.88 

3.16 

2349. 

1477. 

18.75 

0.0000 

0.0000 

0.0000 

0.0014 

0.0003 

1.000 

14.82 

3.56 

2233. 

1461. 

17.88 

0.0000 

0.0000 

0.0000 

0.0014 

0.0002 

1.000 

15.16 

3.53 

2121. 

1400. 

17.04 

0.0000 

0.0000 

0.0000 

0.0015 

0.0002 

1.000 

15.00 

3.12 

2014. 

1302. 

16.23 

0.0000 

0.0000 

0.0000 

0.0016 

0.0002 

1.000 

14.75 

2.74 

1911. 

1209. 

15.44 

0.0000 

0.0000 

0.0000 

0.0016 

0.0003 

1.000 

14.39 

2.39 

1813. 

1121. 

14.68 

0.0000 

0.0000 

0.0000 

0.0016 

0.0003 
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80.0 

642. 

1.434 

260. 

0.178 

0.507 

1.000 

2.07 

1719. 

1038. 

13.95 


856. 

1.076 

0.000 

0.000 

13.65 

13.88 






0.830 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.0003 

78.0 

402. 

1.846 

254. 

0.157 

0.489 

1.000 

1.79 

1630. 

959. 

13.24 


610. 

1.218 

0.000 

0.000 

13.65 

13.11 






0.809 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.0003 

76.0 

157. 

3.705 

247. 

0.116 

0.370 

1.000 

1.53 

1545. 

886. 

12.56 


353. 

1.650 

0.000 

0.000 

13.65 

11.89 






0.788 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

74.0 

-102. 

-4.310 

241. 

0.030 

-1.471 

1.000 

1.30 

1464. 

817. 

11.90 


69. 

6.361 

0.000 

0.000 

13.65 

9.63 






0.767 

0.0015 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0010 

0.0004 



MACH - 

0.700 

ALTITUDE - 

10000.( 

00 FEET 




PNCC 

THROST 

SFC 

NTOT 

OV EF 

PR EF 

TPR 

MPR 

TIT 

EGT 

CPR 


TRROSTO 

SFCO 

ABYAC 

ABLAC 

AMOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO INF 

100.0 

4386. 

0.696 

274. 

0.279 

0.673 

1.000 

2.30 

2697. 

1513. 

22.49 


4547. 

0.671 

0.000 

0.000 

13.65 

10.39 






1.037 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0011 

0.0005 


98.0 

4005. 

0.715 

268. 

0.273 

0.656 

1.000 

2.56 

2628. 

1526. 

21.51 


4170. 

0.686 

0.000 

0.000 

13.65 

11.45 






1.017 

0.001'» 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0012 

0.0005 

96.0 

3468. 

0.732 

263. 

0.269 

0.648 

1.000 

2.68 

2503. 

1479. 

20.56 


3636. 

0.698 

0.000 

0.000 

13.65 

12.16 






0.996 

0.0017 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

0.0004 

94.0 

2921. 

0.767 

258. 

0.259 

0.627 

1.000 

2.86 

2381. 

1442. 

19.64 


3092. 

0.724 

0.000 

0.000 

13.65 

12.97 






0.975 

0.0018 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.0004 


92.0 

2355. 

0.834 252. 0.241 

0.584 1.000 3.14 2265. 1416. 

18.75 


2525. 

0.778 0.000 0.000 

13.65 13.85 



0.954 

0.0018 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0015 

0.0003 


90.0 

1751. 

0.977 247. 0.210 

0.507 1.000 3.54 2153. 1402. 

17.88 


1912. 

0.894 0.000 0.000 

13.65 14.80 



0.934 

0.0017 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0014 

0.0002 
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88.0 

1344. 

1.099 

241. 

0.192 


1508. 

0.979 

0.000 

0.000 


0.913 

0.0017 

0.0000 

0.0000 

86.0 

1123. 

1.125 

236. 

0.193 


1301. 

0.971 

0.000 

0.000 


0.892 

0.0018 

0.0000 

0.0000 


84.0 

916. 

1.168 230. 0.192 


1097. 

0.976 0.000 0.000 


0.871 

0.0019 0.0000 0.0000 


82.0 

717. 

1.248 

225. 

0.188 


896. 

0.998 

0.000 

0.000 


0.851 

0.0019 

0.0000 

0.0000 

80.0 

519. 

1.417 

219. 

0.177 


696. 

1.057 

0.000 

0.000 


0.830 

0.0018 

0.0000 

0.0000 

78.0 

321. 

1.846 

214. 

0.156 


492. 

1.204 

0.000 

0.000 


0.809 

0.0018 

0.0000 

0.0000 

76.0 

118. 

3.934 

208. 

0.113 


279. 

1.664 

0.000 

0.000 


0.788 

0.0017 

0.0000 

0.0000 

74.0 

-98. 

-3.585 

203. 

0.023 


42. 

8.302 

0.000 

0.000 


0.768 

0.0014 

0.0000 

O.OOOO 


0.464 

1.000 

3.51 

2045. 

1343. 

13.65 

15.14 




0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.475 

1.000 

3.10 

1942. 

1250. 

13.65 

14.98 




0.0000 

0.0000 

0.0000 

0.0000 

0.0016 


0.489 

1.000 

2.72 

1843. 

1160. 

13.65 

14.72 




0.0000 

0.0000 

0.0000 

0.0000 

0.0016 

0.502 

1.000 

2.37 

1748. 

1076. 

13.65 

14.36 




0.0000 

0.0000 

0.0000 

0.0000 

0.0016 

0.507 

1.000 

2.06 

1658. 

996. 

13.65 

13.83 




0.0000 

0.0000 

0.0000 

0.0000 

0.0015 

0.486 

1.000 

1.77 

1571. 

920. 

13.65 

13.05 




0.0000 

0.0000 

0.0000 

0.0000 

0.0014 

0.354 

1.000 

1.51 

1489. 

850. 

13.65 

11.78 




0.0000 

0.0000 

0.0000 

0.0000 

0.0013 

-2.361 

1.000 

1.28 

1411. 

783. 

13.65 

9.42 




0.0000 

0.0000 

0.0000 

0.0000 

0.0010 


SEA-LEVEL STATIC THROST - 9065. (MAX) 

SEA-LEVEL SFC - 0.364 

CALLING MODULE NUMBER 6 


17.04 

0.0002 

16.23 

0.0002 

15.44 

0.0003 

14.68 

0.0003 

13.95 

0.0003 

13.24 
0.0004 

12.56 

0.0004 

11.90 

0.0004 
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WEIGHT STATEMENT - BOMBERS 
*** WEIGHTS DATA ♦** 
ACSYNT MODDLE NUMBER 6 


COMPONENT 

AIRFRAME STRUCTURE 
WING 
FUSELAGE 
HORIZONTAL TAIL 
VERTICAL TAIL 
NACELLES 
ALIGHTING GEAR 

PROPULSION 
ENGINES <2) 

FUEL SYSTEM 

FIXED EQUIPMENT 
HYD. + PNEU. 
ELECTRICAL 
AVIONICS 
INSTRUMENTATION 
DE-ICE/AIR CONDITION 
AUXILIARY GEAR 
FURNISH. -I- EQPT. 
FLIGHT CONTROLS 

FUEL 

PAYLOAD 

FLIGHT CREW ( 1) 

ARMAMENT 

AtMUNITION 

MISSILES 

BOMBS 

EXTERNAL TANKS 
ADV. WEAPONS 1 
ADV. WEAPONS 2 

CALCULATED WEIGHT 

ESTIMATED WEIGHT 

PERCENT ERROR 

CALLING MODULE NUMBER 10 


POUNDS 

KILOGRAMS 

PERCENT 

12005. 

5445. 

26.06 

4300. 

1951. 

9.34 

4419. 

2004. 

9.59 

523. 

237. 

1.14 

436. 

198. 

0.95 

805. 

365. 

1.75 

1522. 

690. 

3.30 

3577. 

1623. 

7.76 

3169. 

1438. 

6.88 

408. 

185. 

0.89 

5048. 

2290. 

10.96 

290. 

132. 

0.63 

677. 

307. 

1.47 

1566. 

710. 

3.40 

166. 

75. 

0.36 

369. 

167. 

0.80 

161. 

73. 

0.35 

465. 

211. 

1.01 

1353. 

614. 

2.94 

11438. 

5108. 

24.83 

14000. 

6350. 

30.39 

240. 

109. 

0.52 

0. 

0. 

0.00 

1000. 

454. 

2.17 

0. 

0. 

0.00 

1848. 

838. 

4.01 

0. 

0. 

0.00 

0. 

0. 

0.00 

0. 

0. 

0.00 

46068. 

20896. 

100.00 

46068. 

20896. 



0.00 
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FINAL VALUES OF NAVY MODULE VARIABLES 


CATAPULT TAKEOFF CALCULATIONS, 


TAKEOFF GROSS WEIGHT 
CATAPULT ENDSPEED 
LIFTOFF ENDSPEED 
TAKEOFF STALL SPEED 
MINIMUM WIND OVER DECK 
TAKEOFF ACCELERATION 
TAKEOFF CL 
TAKEOFF CD 
ENGINE OUT CLIMB SPEED 
TAKEOFF FUEL WEIGHT 
TAKEOFF AOA 


- 46068. LBS 
-161.4 KNOTS 
-164.3 KNOTS 
-108.2 KNOTS 
—45.3 KNOTS 
-0.277 G"S 
-2.856 
-0.285 

- -41.0 FT PER MIN 
-11438. LBS 
-11.57 DEGS 


ARRESTED LANDING CALCULATIONS 


CARRIER LANDING WEIGHT 
APPROACH STALL SPEED 
MINIMUM APPROACH SPEED 
CABLE ENGAGING SPEED 
MINIMUM WIND OVER DECK 
LANDING CL 
LANDING CD 
LANDING RESERVE FUEL 
ENGINE OUT CLIMB SPEED 
lANDING AOA 


-35441. LBS 
-94.9 KNOTS 
-113.8 KNOTS 
-145.0 KNOTS 
—19.8 KNOTS 
-3.349 
-0.408 

- 2660. LBS 

- 814.0 FT PER MIN 
-11.75 DESS 


OTHER CALCULATIONS 

OPERATING EMPTY WEIGHT -21119. LBS 
FOLDED TAIL HEIGHT - 11.5 FEET 
NERROR - 0 

CALLING MODULE NUMBER 11 
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SUMIARY 


- ACSYMT OOTPDT - HASA, AMES RESEARCH CENTER 


A-10 OPTIMIZATION STUDY 


GENERAL 

FUSELAGE 



WING 

HTAIL 

VTAIL 

NG 

46068. 

LENGTH 


53.3 

AREA 

387.5 

118.4 

54.1 

N/S 

118.9 

DIAMETER 


5.3 

NETTED AREA 

775.4 

189.0 

102.7 

T/W 

0.39 

VOLUME 


809.4 

SPAN 

50.3 

18.8 

9.7 

M(Z) ULT 11.3 

NETTED AREA 

702.9 

L.E. SWEEP 

0.0 

0.0 

4.0 

CREW 

1. 

FINENESS 

o 

H 

10.1 

C/4 SWEEP 

-1.8 

-0.1 

-4.0 

PASENGERS 0. 




ASPECT RATIO 

6.54 

2.99 

1.74 






TAPER RATIO 

0.66 

0.99 

0.61 

ENGINE 

WEIGHTS 


T/C ROOT 

0.16 

0.13 

0.13 






T/C TIP 

0.13 

0.13 

0.12 

NUMBER 

2. 


w 

WG 

ROOT CHORD 

9.3 

6.3 

6.9 

LENGTH 

8.3 

STRUCT. 

12005. 

26.1 

TIP CHORD 

6.1 

6.3 

4.2 

DIAM. 

3.8 

PROPUL. 

3577. 

7.8 

M.A. CHORD 

7.8 

6.3 

5.7 

WEIGHT 

1478.0 

FIX. EQ. 

5048. 

11.0 

LOC. OF L.E. 

22.7 

45.4 

44.8 

TSLS 

9065. 

FUEL 

11438. 

24.8 





SFCSLS 

0.36 

PAYLOAD 

14000. 

30.4 






MISSION SOMMARY 


PHASE 

MACH 

ALT 

FUEL 

TIME 

TAKEOFF 

0.00 

0. 

345. 

7,0 

CLIMB 

0.53 

5000. 

99. 

0.9 

CRUISE 

0.50 

5000. 

2413. 

42.5 

CRUISE 

0.50 

100. 

495. 

7.3 

COMBAT 

0.60 

100. 

3794. 

30.0 

CRUISE 

0.50 

100. 

471. 

7.3 

CLIMB 

0.51 

5000. 

73. 

0.6 

CRUISE 

0.50 

5000. 

2341. 

42.5 

LOITER 

0.27 

500. 

766. 

20.0 


LANDING 


DIST 

L/D 

THRUST 

SFC 

Q 

3268.0 





4.9 

11.34 

11117.9 

0.591 

340.2 

230.0 

11.64 

3778.3 

0.898 

308.2 

40.0 

10.29 

4163.5 

0.980 

369.0 

198.4 

13.68 

11740.9 

0.646 

531.4 

40.0 

9.04 

3965.6 

0.982 

369.0 

3.5 

9.62 

11178.2 

0.585 

324.3 

230.0 

9.92 

3425.4 

0.962 

308.2 

59.4 

11.90 

2790.7 

0.824 

106.1 

6438.5 






BLOCK TIME - 2.516 HR 

BLOCK RANGE « 806.2 NM 


COMBAT PHASES 

MACH ALT PSIG NZS CLS CDS ALS NZI PSI CLI CDI ALI CBE 
0.60 100. 99. 3.8 0.775 0,0567 6.6 6.0 -550. 1,225 0.2264 11.0177918. 




Xin. EXAMPLE FOUR 


A. OVERVIEW 

This final example will show the lower weight range that ACSYNT is 
capable of handling. This will be an oblique wing Unmanned Air Vehicle 
(UAV) for supersonic intercepts (inspired by Ref 10). It is designed for catapult 
launch and parachute recovery. The engine is a generic turbojet with 9500 lbs 
of thrust at sea-level with afterburner. The configuration is shown in Fig 7. 



Figure 7. Oblique Wing UAV 
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B. EXAMPLE FOUR INPUTS 


The information required for this deragn is given below. It is asstimed 
that the user is now familiar with how to navigate through CREATE and many 
of the steps have been condensed. 


• Start CREATE and open a new file with a name of "UAV", select Simple 
Anafysis. 

• Enter a prcrject title of "OBLIQUE WING UAV". 

• Select item (1) (FIGHTER). 

• No change to the selected Modules. 

• Maximum wei^t for convergence: 10000.0 

• Geometry Selection Menu: select obhque wing, vertical tail, canards, 
fuselage pod, fuselage and fuselage fuel (2, 5, 6, 8, 9 and 11). 

• Oblique Wing Geometry: 

- Aspect Ratio: 6.50 

• Surface Area: 160.0 (ft’) 

- Dihedral: 0.0 deg 

- Leading Edge Flap Width: 0.0 

- Wetted Area Multiplier: 0.95 

- Taper Ratio: 0.3 

- T/C Ratio, Wing Root: 0.06 

- T/C Ratio, Wing Tip: 0.06 

- Trailing Edge Flap Width (% chord): 0.0 

- Position of Wing Quarter (Dhord: 0.55 

- Elevation of Wing on Fuselage: 1.0 

- Fraction of Wing Volume Filled with Fuel: 0.0 

- Fuel Densily: 48.62 

• Vertical Tail <3eometry : 

• Aspect Ratio: 3.0 

- Surface Area: 20.0 (the area of 1 tail) 

- Tail Volume Coefficient: N/A 
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- LE Sweep: 30.0 

- Wetted Area Multiplier: 0.9 

- Taper Ratio: 0.50 

- T/C Ratio, Root: 0.07 

- T/C Ratio, Tip: 0.06 

- Number of Vertical Tails: 1.0 

- X Location of TE of the Root Chord: 1.0 

- Elevation of the Root Chord of the Tail on Fuselage: 1.0 
• Sizing Logic: F 

- Vertical Tail Sizing Fraction: N/A 


* Canard Geometry 

- Aspect Ratio: 2.4 

• Reference Area: 25.0 

- Canard Volume Coefficient: N/A 

- Leading Edge Sweep: 30.0 deg 

- Wetted Area Multiplyer: 0.8 

- Taper: 0.4 

- T/C Ratio, Root: 0.06 

- T/C Ratio, Tip: 0.06 

- X Location of Canard LE: 0.05 

- Elevation of Canard on Fuselage: 0.0 

- Canard Location: 1 

- Sizing Logic: F 

- Sizing Fraction: N/A 

* 1 Fuselage Pod 

* Fuselage Pod Geometry: 

- Engine Pod Diameter: 0.00 (will be sized as engine is sized) 

- Engine Pod Length: 0.00 

• Stand-Off Distance: -2.0 

- Angular Orientation: 0.0 

- X Location of Pod Leading Edge: 0.5 

- Wing Pod Symmetry: 1 

* Fuselage (j^metry: 

- Maximum Fuselage Diameter: 3.00 

- Fuselage Length: 19.0 

- Diameter of Nose RadarDish: 0.0 

- Afterbody Fineness Ratio: 1.9 

- Fuselage Fineness Ratio: 0.0 
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• Nose Fineness Ratio: 3.0 

> Length of Radar Equipment Behind Radar: 0.0 

- Surface Area Complexity Factor: 1.1 (10% more area to account for inlet) 

• Fuselage Wall Thickness: N/A 

• Mission Fuel Weight Estimate: 2000.0 

- Tail Type: 1 

• 1 Fuselage Fuel Bay 

- Fuel Density: 48.62 (JP-4) 

• Trajectory Page 1: 

- Cruise Mach Number: 0.8 

- Mach Number for Max Endurance: 0.5 

- Design Load Factor: 10.0 

- Ultimate Load Factor: 15.0 

- Aircraft Range: 600.0 

- Maximum Dynamic Pressure: 1500.0 
. Take-Off Obstacle Requirement: N/A 

• Trajectory Page 2: 

- Time ior Warm-up and Taxi: 5.0 

• Power Setting Dm4ng Warm-up and Taxi: 5 

- Time for Take-off: 0.5 

- Power Setting for Take-off: 1 

• Breguet Altitude Search Flag: 0 

- Loiter Altitude Search Flag: 0 

• Trsoectory Page 3: 

- Fuel Reserve: 0.05 

- Total Internal Fuel: 2500.0 

- External Fuel: 0.0 

- Weight of Trapped Fuel: 20.0 

- Engine Sizing Flag: -2 

- Number of Cruise Phases (see below): 2 

- Total number of Trajectory Phases (see below): 6 

- Debug Option: 0 

• Trsyectory Phases. Use 6.0 g’s during combat. 
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TABLE 10. UAV Mission 



Madi 

Madi 

Alt 

Alt 

Horiz 

Horiz 

Power 

Phase 

Start 

End 

Start 

End 

Dist 

Time 

Setting 

Climb 


0.00 

0 

30000 

0.0 


2 

Cruise 

0.8 

0.8 

30000 

-1 

240 

30.0 

4 

Accel 

0.8 

mm 

30000 

-1 

0 

Hoy! 

1 

Combat 

1.6 


30000 

-1 

0 


1 

Cruise 

0.8 

0.8 

30000 

-1 

160 

20.0 

4 

Descent 

0.00 

0.00 

30000 

0 

0.0 


5 


• Aerodynamics Page 1: 

- Ratio of Body Base Area to Max Body Area: 0.15 

- Angle of Attack for Cl max: 35.0 
. Maximum Angle of Attack: 40.0 

< Width of the Fuselage at the Nose: 0. 

- Boat Tail Exposure Factor: 0.0 

- Cl max Scaling Factor for clean aircraft: 1.0 
. Laminar-Turbulent Weighting Factor: 0.7 

• Aerodynamics Page 2: 

- Ref Mach Number Array: 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0 

- Cl at Zero AOA for Body: 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 
0.00, 0.00 

- Canard Cl at Zero AOA: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Wing Cl at Zero AOA: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Zero Lift Pitching Moment: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

- Wing Sweep Angles: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 (wing 
sweep is programmed for normal Mach nximber) 

• Aerodynamics Page 3: 

- Variable Wing Sweep Flag: T 

- Normal Mach Number Calculation Code: 0 

- Desired Normal Component: 0.7 

- Max Sweep: 60.0 

- Min Sweep: 0.0 
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* Aerodsnaamics page 4: 

- Wing Airfoil Section C!ode: 1 

- Wing LE Radius/Chord Ratio: N/A 

- Canard Airfoil Section Code: 1 

' Canard LE Radius/Chord Ratio: N/A 

- Distance Between the Twin Nacelles: N/A 

- Supercritical Wing Flag: 0 
> Body Cross-section Code: 0 

* Aerodynamics Page 5: 

- Pod Cowl Exposure Factor: 0.0 

- Friction Drag Multiplying Factor: 0.7 

- Canard Incidence: N/A 

- Average Flap Chord: 0. 

- Total Area of Both Wing Flap: 0.0 

• Total Span of Both Flaps: 0.0 

- Desired Location of CG: 0.25 

- Static Margin for CG: 0.10 

- Height of CG Above Fuselage Centerline: 0.0 

- Horizontal Tail Incidence: 0.0 

* Aerodynamics Page 6: 

- Mach Numbers for Detailed Aero Output: 0.6,0.7,0.8, 0.9,1.0,1.2,1.4, 
1.6 

- Total Number of Requested Mach Numbers: 8 

- Altitudes for Detailed Aero Output: 10000.0,30000.0,30000.0,30000.0, 
30000.0, 30000.0, 30000.0, 30000.0 

- Lift Coefficients for Detailed Output: 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0, 0.0 

* Aerodynamics Page 7: 

- Drag due to External Bombs: 0.0 

• Drag due to External Stores: 0.0 

- Drag due to Drop Tanks: 0.0 

- Drag due to Additional Items: 0.0 

* Aerodynamics Page 8: 

- Cl max for Landing: -1.0 

- Cl max for Take-off: -1.0 

- TE Flap Angle for Landing: 0.0 

- TE Flap Angle for Take-off: 0.0 

- LE Slat Angle for Landing: 0.0 

- LE Slat Angle for Take-off: 0.0 
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- L/D Ratio for Landing: -1.0 

- L/D Ratio for Take-off: -1.0 

- Enter "0" to Continue 

• Engine Type: Change to T3rpe 1 (J-85) 

• Propulsion Page 1: 

- Engine Diameter: 0.0 

- Engine Length: 0.0 

- Engine Weight: 0.0 

- Inner Turbine Flow Area: 0.385 

- Bypass Ratio: 0.0 

- Engine Face Diameter: 1.365 

- Nozzle Fineness Ratio: 0.0 

- Cowl Fineness Ratio: 0.0 

- Enter "0" to Continue 

• Propulsion Page 2: 

- Engine Hub/Tip Ratio: 0.6 

- Fuel Heat Value: 18600.0 

• Scaling Factor for Inlet Capture Area: 1.0 

- Engine Percent Corrected Airflow: 100.0 

- Maximum Nacelle Diameter Factor: 1.15 

- Total Nacelle Length Factor: 1.5 

- Engine Face Mach Number: 0.7 

• Distance Between Nozzles/Nozzle Diameter: 1.0 

- Nozzle Velocity Coefficient: 0.98 

• Propulsion Page 3: 

- Cooling/Primary Airflow Ratio: 0.0 

- Year of Installation: 96.0 

- Thrust w/Afterbumer: 9500.0 

- Thrust w/o Afterburner: N/A 

- Thrust/Wei^t Ratio at Take-ofT: N/A 

- Afterburner Adiabatic Efficiency: 0.9 

- Combustor Adiabatic Efficiency: 0.93 

- Ductbumer Adiabatic Efficiency: N/A 

- Compressor Adiabatic Efficiency: 0.9 

• Propulsion Page 4: 

- Fan Adiabatic Efficiency: N/A 

- Turbine Adiabatic Efficiency: 0.92 

- Design Fan Pressure Ratio: N/A 
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- Outer Compressor Pressxire Ratio: 2.0 

- Overall Compressor Pressure Ratio: 19.0 

- Combustor Pressiu^ Ratio: 0.95 

- Afterburner Pressure Ratio: 0.95 

- Afterburner Pressure Ratio, Not Lit: 0.95 

- Ductbumer Pressure Ratio: N/A 

- Ductbumer Presstue Ratio, Not Lit: N/A 

• Propulsion Page 6: 

- Average Compressor Stage Rise: 1.27 

- Turbine Inlet Temp: 2600.0 

- Afterbtimer Max Temp: 3000.0 

- Ductbumer Max Temp: 0.0 

- Incremental Inlet Total Press Recovery Reduction: 0.0 

- Number of Engines: 1 

- Inlet Pressure Recovery Code: 1 

• Propulsion Page 6: 

- SFC Multiplying Factor for Condition One: 1.0 

- Upper Limit on Mach Number for Condition One: 1.0 

- SFC Multiplying Factor for Condition Two: 1.0 

- Lower Limit on Mach Number for Condition Two: 1.1 

• SFC Multiplying Factor for Burner lit: 1.0 

- Scale Factor for Nozzle Boat>Tail drag: 0.0 

• Scale Factor for Total Installation Drag: 1.0 

- Scale Factor for Nozzle Interference Drag: 0.0 

• Propxilsion Page 7: 

- Altitudes for Detailed Output: 0.0, 1000.0, 30000.0, 30000.0, 30000.0, 
30000.0 

- Mach Numbers for Detailed Output: 0.0, 0.6, 0.8, 1.0, 1.2, 1.6 

- Number of Altitude/Mach Number Combinations without the 
Afterbxuuer lit: 3 

- Engine Type Indicator: 0 

- Afterburner Indicator: 2 

- Ductbumer Indicator: 0 

- Nozzle Type Indicator: 1 

• Weights Page 1: 

- Wing Slope: 0.8 (all composite construction) 

- Fuselage Slope: 0.8 

- Horizontal Tail: 0.0 

- Vertical Tail: 0.8 
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- Nacelles: 0.0 

- T endin g Gear: 0.6 (parachute) 

- Engines: 1.0 

- Fuel System: 1.0 

- Hydraulics: 1.0 

• Weights Page 2: 

' Electrical System: 1.0 

- Avionics: 1.0 

- Instrumentation: 1.0 

- Environmental System: 0.0 

- Passenger Accommodations: 0.0 

- APU: 0.0 

- Fhght Controls: 1.0 

- Crew Accommodations: 0.0 

- Payload: 400.0 

• Weights Page 3: 

- Wing Pivot Factor: 1.0 

- External Tank Factor: 0.0 

- Maximvun Mach Number: N/A 

- ObUque Wing Material Density: .056 (graphite/epoxy) 

- Oblique Wing Allowable Stress: 30000.0 

- Wing Weight Equation: N/A 

- Oblique Wing Weight Equation: 1 

- Tail Indicator: 0 

- Body Equation: 1 

- Wing Weight Technique: N/A 

- Estimate of Take-off Gross Weight: 5000.0 

• Weights Page 4: 

- Weight of Ammunit ion: 0.0 

- Weight of Bombs: 0.0 

- Weight of Missiles: 0.0 

- Weight of External Tanks: 0.0 
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CONTROL PROGRAM 
FOR 

INEERING SYNTHESIS 

TITLE 


OBLIQOE WING OAV 



TITLE: 

OBLIQUE WING OAV 


CONTROL PARAMETERS; 

CALCULATION CONTROL, NCALC - 1 
NUMBER OF GLOBAL DESI^ VARIABLES, NOV - 0 
NUMBER OF SENSITIVITY VARIABLES, NSV - 0 
NUMBER OF FUNCTIONS IN TWO-SPACE, N2VAR - 0 
NUMBER OF APPROXIMATING VAR. NXAPRX - 0 
INPUT INFORMATION PRINT CODE, IPNPUT - 1 
DEBUG PRINT CODE, IPDBG - 0 


CALCULATION CONTROL, NCALC 
VALUE MEANING 

1 SINGLE ANALYSIS 

2 OPTIMIZATION 

3 SENSITIVITY 

4 TWO-VARIABLE FUNCTION SPACE 

5 OPTIMUM SENSITIVITY 

6 APPROXIMATE OPTIMIZATION 


* * ESTIMATED DATA STORAGE REQUIREMENTS 


INPUT 

REAL 

EXECUTION 

AVAILABLE 

INPUT 

INTEGER 

EXECUTION 

AVAILABLE 

9 

9 

5000 

1 

1 

1000 
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AAAAAAA CCCCCCC SSSSSSS Y Y H N TTTTTTT 
AAC S YYMNN T 

AAC S YYHHH T 

AAAAAAA C SSSSSSS Y N N M T 

AAC SYMNNT 

AAC SYNNNT 

A A CCCCCCC SSSSSSS Y N N T 


NASA-AMES PROGRAM 
FOR 

AIRCRAFT SYNTHESIS 
NAVAL POSTGRADOATE SCHOOL VERSION 


TITLE 

OBLIQOE NING OAV 


AIRCRAFT TYPE > FIGHTER 



TITLE; 

OBLIQUE WING DAV 


AIRCRAFT TYRE - FIGHTER 


CONTROL PARAMETERS: 

READ CONTROL, MREAD - 

EXECOTKM) CONTROL, MEXEC - 

WRITE CONTROL, MWRITE - 

NUMBER IDENTIFYING CONVERGENCE 

VARIABLE FOR CONVERGED VEHICLE, lOBJ - 
NUMBER IDENTIFYING COMPARISON 

VARIABLE FOR CONVERGED VEHICLE, JOBJ - 
SUMIARY OUTPUT PRINT CODE, IPSUM - 

GLOBAL ERROR PRINT CODE, KGLOBP - 

GLOBAL COMMON INITIALIZATION CODE, INIT - 
DEBUG PRINT CODE, IPDBG - 

GLOBAL PLOT CONTROL, IGPLT - 

DATA TRANSFER INFORMATION FILE, IRDDTR 
DATA TRANSFER INFORMATION PRINT, IPDTR 


5 

3 

S 

570 

585 

1 

0 

0 

2 

1 

7 

0 


VEHICLE CONVERGENCE INFORMATION: 
CONVERGENCE TOLERANCE, TOL - O.lOOOOE-03 
ESTIM WCALC VS NEXT SLOPE - 0.75000E400 
BOUNDING WEIGHT, NGMAX - 0.10000E-f05 


MODULE IDENTIFICATION NUMBERS: 


NUMBER 

1 

2 

3 

4 

5 

6 
8 

10 

11 

14 


MODULE 

GEOMETRY 

TRAJECTORY 

AERODYNAMICS 

PROPULSION 

STABILITY AND CONTROL 

WEIGHTS 

GLOBAL I/O 

NAVY 

SUMMARY OUTPUT 
TAKEOFF AND LANDING 


MODULES ARE CALLED FOR INPUT IN THE FOLLOWING ORDER: 
1 2 3 4 6 


MODULES ARE CALLED FOR EXECUTION IN THE FOLLOWING ORDER 
12 6 


MODULES ARE CALLED FOR OUTPUT IN THE FOLLOWING ORDER: 

1 2 3 4 6 

CALLING MODULE NUMBER 1 
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GEOMETRY DATA CAROS 

1*** geometry data *** 

2 $QNZM6 


3 

AR- 5.50, 

AREA- 160.00, 

4 

LFLAPC-0.00, 

SWFACT-0.95, 

5 

TCROOT-0.06, 

TCTIP-0.06, 

6 

XWING-0.55, 

ZROOT- 1.00, 

7 

FDENWG- 48.62, 

OOTCOD-2, 

8 

$EMD 


9 $VTAIL 


10 

AR- 3.00, 

AREA- 20.00, 

11 

SWEEP-30.00, 

SWFACT-0.90, 

12 

TCROOT-0.07, 

TCTIP-0.06, 

13 

VTMO-1.0, 

XVTAZL-1.00, 

14 

ZROOT-1.00, 

KSWEEP-0, 

15 

S12IT-F, 


16 

$EMD 


17 

$CAMARD 


18 

AR- 2.40, 

AREA- 25.00, 

19 

SWEEP-30.00, 

SWFACT-0.80, 

20 

TCROOT-0.06, 

TCTIP-0.06, 

21 

ZROOT- 0.00, 


22 

KSWEEP-0, 

ODTCOD-2, 

23 

CFRAC-0.000, 

$EMD 

24 

$FPOD 


25 

DIAM- 0.00, 

LENGTH- 0.00 

26 

THETA- 0.00, 

X-0.5, 

27 

SYMCOO-1, 


28 

$EMD 


29 

$F0S 


30 

BDMAX- 3.00, 

BODL- 19.00, 

31 

FRAB- 1.90, 

FRATIO- 0.00, 

32 

LRADAR- 0.00, 

SFFACT- 1.10, 

33 

WFOEL- 2000. 

0,ODTCOD-2, 

34 

$END 


35 

$FOEL 


36 

DBN-48.62, 

FRAC-1.00, 

37 

ODTCOD-2, 


38 

$END 



END OF GEOMETRY DATA CARDS 
38 CARDS READ 


DIHSD- 0.00, 
TAPER-0.30, 
TFIAPC-0.00, 
WFRAC-0.00, 


CWT-0.08, 

TAPER-0.50, 

VTFRAC-0.000, 

YROOT-0.00, 

ODTCOD-2, 


CVCAH—0.80, 

TAPER-0.40, 

XCAN-0.05, 

NCAM-1, 

SIZIT-F, 


SOD—2.00, 
OtJTCOD-2, 


DRAOAR- 0.00, 
FRM- 3.00, 
WALL- 0.00, 
ITAIL-0, 


WFDEL- 0.0, 
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NASA/AMES A C S Y N T ••INITIAL OOTPOT^^ 

FDSBLAGE DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

0.38 

0.23 

0.17 

0.76 

0.38 

0.46 

1.14 

0.51 

0.82 

1.52 

0.62 

1.22 

1.90 

0.72 

1.64 

2.28 

0.81 

2.08 

2.66 

0.90 

2.53 

3.04 

0.97 

2.97 

3.42 

1.04 

3.41 

3.80 

1.11 

3.84 

4.18 

1.16 

4.26 

4.56 

1.22 

4.65 

4.94 

1.26 

5.02 

5.32 

1.31 

5.37 

5.70 

1.35 

5.69 

6.08 

1.38 

5.98 

6.46 

1.41 

6.24 

6.84 

1.43 

6.47 

7.22 

1.46 

6.66 

7.60 

1.47 

6.81 

7.98 

1.49 

6.93 

8.36 

1.49 

7.02 

8.74 

1.50 

7.06 

9.12 

1.50 

7.07 

9.50 

1.50 

7.07 

9.88 

1.50 

7.07 

10.26 

1.50 

7.07 

10.64 

1.50 

7.07 

11.02 

1.50 

7.07 

11.40 

1.50 

7.07 

11.78 

1.50 

7.07 

12.16 

1.50 

7.07 

12.54 

1.50 

7.07 

12.92 

1.50 

7.07 

13.30 

1.50 

7.07 

13.68 

1.49 

7.02 

14.06 

1.48 

6.88 

14.44 

1.45 

6.65 

14.82 

1.42 

6.33 

15.20 

1.37 

5.92 

15.58 

1.32 

5.44 

15.96 

1.25 

4.89 

16.34 

1.17 

4.28 

16.72 

1.07 

3.62 

17.10 

0.97 

2.93 

17.48 

0.84 

2.22 

17.86 

0.70 

1.53 

18.24 

0.53 

0.88 

18.62 

0.32 

0.33 

19.00 

0.00 

0.00 

••FUSELAGE 

MAX. DIAMETER- 

3.000 

FINENESS 

RATIO... 

6.333 

SURFACE 

AREA. 

155.787 

VOLUME.. 


91.598 
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HASA/AMES A C S Y N T ‘^INITIAL OOTPDT** 
DIMENSIONS OF PLANAR SURFACES 



NING H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN AREA. 

160.0 

0.0 

20.0 

25.0 

(SQ.FT.) 

SURFACE AREA. 

304.5 

0.0 

36.1 

20.5 

(SQ.FT.) 

VOLUME. 

39.7 

0.0 

2.5 

3.6 

(CU.FT.) 

SPAN. 

29.665 

0.000 

7.746 

7.746 

(FT.) 

L.E. SWEEP. 

5.592 

0.000 

30.000 

30.000 

(DEG.) 

C/4 SNEEP. 

0.000 

0.000 

27.555 

21.741 

(DEG.) 

T.E. SNEEP.-16.368 

0.000 

19.551 

-7.797 

(DEG.) 

ASPECT RATIO . 

5.500 

0.000 

3.000 

2.400 


ROOT CHORD. 

8.298 

0.000 

3.443 

4.611 

(FT.) 

ROOT THICKNESS. 

5.974 

0.000 

2.892 

3.320 

(IN.) 

ROOT T/C . 

0.060 

0.000 

0.070 

0.060 


TIP CHORD. 

2.489 

0.000 

1.721 

1.844 

(FT.) 

TIP THICKNESS. 

1 792 

0.000 

1.239 

1.328 

(IN.) 

TIP T/C . 

0.060 

0.000 

0.060 

0.060 


TAPER RATIO . 

0.300 

0.000 

0.500 

0.400 


MEAN AERO CHORD.... 

5.915 

0.000 

2.678 

3.425 

(FT.) 

LE ROOT AT. 

8.376 

0.000 

15.557 

0.950 

(FT.) 

C/4 ROOT AT. 

10.450 

0.000 

16.418 

2.103 

(FT.) 

TE ROOT AT. 

16.673 

0.000 

19.000 

5.561 

(FT.) 

LE M.A.C. AT. 

8.971 

0.000 

17.545 

1.908 

(FT.) 

C/4 M.A.C. AT. 

10.450 

0.000 

18.214 

2.765 

(FT.) 

TE M.A.C. AT. 

14.886 

0.000 

20.223 

5.333 

(FT.) 

Y M.A.C. AT. 

6.085 

0.000 

3.443 

1.660 


LE TIP AT. 

9.828 

0.000 

20.029 

3.186 

(FT.) 

C/4 TIP AT. 

10.450 

0.000 

20.460 

3.647 

(FT.) 

TE TIP AT. 

12.317 

0.000 

21.751 

5.030 

(FT.) 

ELEVATION. 

1.500 

0.000 

1.500 

0.000 

(FT.) 

VOLUME COEFF. 


0.000 

0.033 

-0.203 


E X T E N S 

IONS 






Strake Rear Extension 


Centroid locetion «t 


0.000 

0.000 



Area. 


0.000 

0.000 



Netted Area. 


0.000 

0.000 



Volume. 


0.000 

0.000 



Sweep Angle. 


0.000 




FUEL T 

A N K S 





TANK VOLUME 

WEIGHT 

DENSITY 



NING 0. 

0. 

48 

.62 



FUSfl 0. 

0. 

48 

.62 



FUS*2 0. 

0. 

50 

.00 



TOTAL 

0. 





MISSION FUEL REQUIRED- 

0. 




AVAILABLE FUEL VOLUME IN NING- 

32. 



AIRCRAFT WEIGHT - 

0.000 

Lbs. 




AIRCRAFT VOLUME - 

137.419 

Cu.Ft. 




AIRCRAFT DENSITY - 

0.000 

Lba./Cu.Ft. 




CASE- 4 

CALLING MODULE NUMBER 2 
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TRAJECTORY INPDT 


TIMTOl 

m 

5.0 

MENDUR 

m 

0. 

NCRUSE 

m 

2 

IPLOT 

a 

0 

TIMT02 

m 

0.5 

C3MAX 

m 

1500. 

IPSIZE 

a- 

-2 

HMINP 

a 

0 

FRFURE 

m 

0.05 

XDESC 

m 

80.0 

IPSTOl 

m 

5 

KMAXP 

a 

40000 

DESLF 

10.00 

NKFUEL 

m 

1.000 

IPST02 

a 

1 

DELHP 

a 

4000 

ULTLF 


15.00 

CRMACH 

m 

0.800 

IBREG 

a 

0 

StMINP 

a 

0.300 

RANGE 


600. 

NKLAND 

m 

0.570 

lENDUR 

a 

0 

SMMAXP 

a 

0.900 

NFUEL 


2500. 

FLFAC 

m 

0.600 

IPRINT 

a 

0 

DEUIP 

a 

0.100 

NFEXT 


0. 

DECEL 

m 

0.250 

KERROR 

a 

2 

HCOMBP 

a 

0 

NFTRAP 


20. 

NLEGCL 

m 

0 

NLEGCR 

a 

0 

NLEGLO 

a 

0 

wwxacc 


1.200 

TOL 

m 

0.001 

MILCOM 

a 

0 

NMISS 

a 

1 


HCODE - 0 


(MPROP - 1 


MISSION 1 


PHASE 

MACH NO. 
START END 

ALTITUDE 
START END 

HORIZONTAL 
DIST TIME 

NO. 

TURN 

VIND 

"C'S 

WKFUEL 

M 

IP 

IX 

H 

B 

A 

p 

CLIMB 

0.00 

0.00 

0 

30000 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

2 

0 

0 

0 

0 

0 

CRUISE 

0.80 

0.80 

30000 

-1 

240.0 

30.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

ACCEL 

0.80 

1.60 

30000 

-1 

0.0 

2.0 

0.0 

0.0 

1.0000 

1 

1 

0 

0 

0 

0 

0 

COMBAT 

1.60 

1.60 

30000 

-1 

0.0 

4.0 

0.0 

6.0 

1.0000 

1 

1 

0 

0 

0 

0 

0 

CRUISE 

0.80 

0.80 

30000 

-1 

160.0 

20.0 

0.0 

0.0 

1.0000 

1 

4 

0 

0 

0 

0 

0 

DESCENT 

0.00 

0.00 

30000 

0 

0.0 

0.0 

0.0 

0.0 

1.0000 

1 

5 

0 

0 

0 

0 

0 


CALLING MODULE NUMBER 3 
CALLING MODULE NUMBER 4 
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PROPULSION INPUT 
VERSION 04-76 


*** PROPULSION DATA *** 


AENDIA - 

0.000 

ABNLE 

> 

0.000 

AENWT - 

0.000 

ALTI 

0.000 

AM 

m 

0.000 

ATURB " 

0.385 

AENTN - 

0.000 






AUAEN6 - 

0.000 

AMAENG 

m 

0.157 

BA * 

0.000 

DELPR - 

0.000 

DBLT57 

m 

100.000 

DEPMCC « 

2.000 

DIAl 

1.365 

BABl 

m 

0.900 

EBl 

0.930 

EDI 

0.750 

ETACl 

m 

0.900 

BTAFl * 

0.900 

ETATl - 

0.920 

HTR 

m 

0.600 

HVF - 

18600.000 

MACHl - 

1.000 

MACH2 

■ 

1.100 

PCDFAC • 

1.000 

POSA 

29.920 

PRFO 

« 

1.000 

PMCC « 

100.000 

PllPl - 

2.000 

P2P1 

m 

21.000 

RlOA 

-1.000 

R32 

0.950 

R54 

m 

0.950 

R54N 

0.950 

R7I1 

0.980 

R711N 

m 

0.820 

SCPR > 

1.270 

SPAOP - 

1.000 

SPADSP 

m 

1.000 

SFAUXP - 

1.000 

SPBEP - 

1.000 

SFBPP 

m 

1.000 

SFBTP « 

0.000 

SPDIVP - 

1.000 

SFINSP 

m 

1.000 

SFIP - 

0.000 

SPSFCl - 

1.000 

SFSFC2 

■ 

1.000 

SFSFC3 - 

1.000 

SMI 

0.700 

SODG 

m 

1.000 

TOSA - 

518.000 

TR ■ 

520.000 

TNAB 

m 

9500. 

TNOAB - 

2720. 

TMTO ■ 

0.500 

T3 

m 

2600. 

T5M 

3400. 

T5I 

3000. 

T7M 

m 

3400. 

T71 - 

0. 

VCI 

0.980 

NCMAl 

m 

0.000 

XMDES - 

0.850 

XMT 

0.850 

TREN 

m 

95. 

FRBT ■ 

0.000 

FRPN - 

0.000 

ROIAM 

m 

1.150 

RLENG * 

1.500 


IPR 

1 

IPRINT 

m 

0 

IPLOT 

m 

0 

KERROR - 

0 

RODE 

m 

0 

KT5 

m 

2 

KT7 - 

0 

MINPR 

m 

1 

NAB 

m 

3 

NOZZ - 

1 

NPROP 

m 

6 

NSUMl 

m 

15 






lENG 

m 

1 


THESE VARIABLES ARE USED BY TABLE LOOK UP 
ESF > 1.000 NDTAIL - 0 IPDBUG 

- 0 IIPRINT - 0 



ALTD - 

0. 

10000. 

30000. 

30000. 

30000. 

30000. 


XMACH - 

0.000 

0.600 

0.800 

1.000 

1.200 

1.600 


XMPRl - 

0.000 

0.300 

0.600 

0.900 

1.200 

4.000 


XPRl - 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 


XMPRIl - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRIl - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XMPRI2 - 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

XPRI2 - 

CALLING 

0.000 
0.000 
MODULE i 

0.000 
0.000 
NUMBER 8 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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INITIAL WEIGHTS INPUT DATA 
ACSYNT MODULE NUMBER 6 

AIRCRAFT TYPE: FIGHTER 
TITLE: *** WEIGHTS DATA *** 


CONTROL OPTIONS 


IPRINT 

■1 

1 IGRAPH 

- 1 

ITAIL 

- 0 KERROR - 

0 


IDELT 

m 

0 lOBLIQ 

- 1 

KWING 

- 1 KBODY - 

1 


KI 

m 

1.00 K2 

-1.00 

R3 

- 1.0 K4 


1.0 


K5 

m 

1.00 K6 

-1.00 

AFMACH - 0.85 MAXIT - 

1 


KB 

m 

0.00 KPl 

-1.00 

KP2 

- 0.00 




FR 

m 

1.50 TECHG 

-1.00 

WGTO 

- 5000 

* 



STRESS 

m 

30000. 


DENS 

- 0.056 

FLIFTF -0 

.000 

TECHI 

m 

1.00 1.00 

1.00 

1.00 

1.00 1.00 

1.00 

1.00 

1.00 

SLOPE(1) 

m 

0.80 0.80 

0.80 

0.80 

0.80 0.50 

1.00 

1.00 


SLOPE(9) 

m 

1.00 1.00 

1.00 

1.00 

0.00 0.00 

0.00 

1.20 

0.00 


INITIAL ESTIMATES 
IF CODE - 1, WEIGHT IS FIXED 


QUANTITY 

VALUE 

CODE 

QUANTITY 

VALUE 

CODE 

WAF 

m 

1500. 

0 

WAIRC 

« 

50. 

0 

WAPU 

mm 

0. 

0 

WAMtUN 

a 

0. 

0 

WARM 

■ 

0. 

0 

WBAG 

a 

0. 

0 

WBBl 

■ 

0. 

0 

WBODY 

a 

800. 

0 

WCAND 

■i 

0. 

0 

WCARGO 

a 

0. 

0 

WCREW 

■ 

100. 

0 

WE 

a 

550. 

0 

WELT 

■ 

200. 

0 

WEP 

a 

125. 

0 

WETANK 


0. 

0 

WFEQ 

a 

690. 

0 

WFS 

a 

140. 

0 

WCA 

a 

140. 

0 

WGEAR 

m 

15. 

0 

WHOP 

a 

60. 

0 

WHT 

m 

55. 

0 

WINST 

a 

55. 

0 

WLG 

m 

200. 

0 

WMISS 

a 

0. 

0 

WNA 

m 

50. 

0 

WPA 

a 

0. 

0 

WPASS 

m 

0. 

0 

WPL 

a 

400. 

1 

WPS 

m 

690. 

0 

WSC 

a 

150. 

0 

WTSUM 

m 

5000. 

0 

WVT 

a 

50. 

0 

WWING 

m 

400. 

0 

WBOMB 

a 

0. 

0 

WENVP 

m 

0. 

0 

WPIV 

a 

0. 

0 

WLIFTF 

mm 

0. 

0 

WBB2 

a 

0. 

0 


* * * BEGIN VEHICLE CONVERGENCE 


ESTIMATED GROSS WEIGHT - 0.50000E-«-04 
CALLING MODULE NUMBER 1 
CALLING MODULE NUMBER 2 


HN - 0.0000000E4-00 
RHO - 0.2376891E-02 
DXCRUS - O.OOOOOOOE-fOO 


A - 0.1116450E+04 SMN - 0.2613667E+00 
Q - 0.1011949E-f03 
W - 0.3301159E+04 


CALLING MODULE NUMBER 6 
CALCULATED GROSS WEIGHT - 0.49873E-:-04 


SLOPE OF WCALC VS WEST LINE - 0.75000E+00 
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ESTIMATED GROSS WEIGHT - 0.4 94 94E4-04 
CALLING MODOLE NOMBER 1 
CALLING MODOLE NOMBER 2 

HN - 0.0000000E4-00 A - 0.1116450E<t-04 SMN - 0.2594699E-«-00 

0.2376891E-02 Q - 0.9973I46E-t-02 

DXCROS - O.OOOOOOOE+OO W - 0.325e455E-«-04 

CALLING MODOLE NOMBER € 

CALCOLATED (SIOSS WEIGHT - 0.49751E-«-04 

SLOPE OF WCALC VS WEST LINE - 0.30000E-I-00 

ESTIMATED GROSS WEIGHT - 0.49a33E+04 
CALLING MODOLE NOMBER 1 
CALLING MODOLE NOMBER 2 

HN > O.OOOOOOOE-fOO A - 0.1116450E-«-04 SMN - 0.2605657E-t-00 

0.2376891E-02 Q - 0.100575€E-t-03 

DXCROS - O.OOOOOOOE-fOO W - 0.3286344E-f04 

CALLING MODOLE NOMBER € 

CALCOLATED GROSS WEIGHT - 0.49896E-f04 

SLOPE OF WCALC VS WEST LINE - 0.30000E-fOO 

ESTIMATED GROSS WEIGHT - 0.49e95E-f04 
CALLING MODOLE NOMBER 1 
CALLING MODOLE NOMBER 2 

HN - O.OOOOOOOE-fOO A - 0.111€450B-f04 SMN - 0.2607631E-f00 

0.2376891E-02 Q - 0.100728lE-f03 

DXCROS - O.OOOOOOOE-fOO W - 0.3291383E-f04 

CALLING MODOLE NOMBER 6 

CALCOLATED GROSS WEIGHT - 0.49923E-f04 

SLOPE OF WCALC VS WEST LINE - 0.43083E-f00 

ESTIMATED GROSS WEIGHT - 0.49944E-f04 
CALLING MODOLE NOMBER 1 
CALLING MCX)OLE NOMBER 2 

HN - O.OOOOOOOE-fOO A - 0.1116450E-f04 SMN - C.2809215E-f00 

0.2376891E-02 Q - 0.1008505E-f03 

DXCROS - O.OOOOOOOE-fOO W - 0.3295425E-f04 

CALLING MODOLE NOMBER 6 

CALCOLATED GROSS WEIGHT - 0.49943E-f04 


* * * END VEHICLE CONVERGENCE 


4 CONVERGENCE ITERATIONS REQOIRED 
CALLING MODOLE NOMBER 1 
CALLING MODOLE NOMBER 2 
SOMIARY OF NON FATAL ERRORS ENCOOITrEREO IN PROP 
PS IS LESS THAN P6S 1 TIMES 
SOMIARY OF NON FATAL ERRORS ENCOONTERED IN PROP 


RHO 


RHO 


RHO 


RHO 
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P5 IS LESS THAN P6S 
SOMMARY OF NON FATAL 
P5 IS LESS THAN P6S 
SOMMARY OF NON FATAL 
PS IS LESS THAN P6S 
SOraiARY OF NON FATAL 
PS IS LESS THAN P6S 
SOMMARY OF NON FATAL 
PS IS LESS THAN P6S 
SOIMARY OF NON FATAL 
PS IS LESS THAN P6S 
SOMMARY OF NON FATAL 
PS IS LESS THAN P6S 
SOMflVRY OF NON FATAL 
PS IS LESS THAN P6S 
SOMfARY OF NON FATAL 
PS IS LESS THAN P6S 


1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOUNTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 

ERRORS ENCOONTERED 
1 TIMES 


IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 

IN 

PROP 


HN » O.OOOOOOOE+00 A ■ 0.111S450E+04 SMN - 0.2609196E+00 

0.2376891E-02 Q - 0.1008490E+03 

DXCROS - O.OOOOOOOE+00 « - 0.3295376E+04 


CALLING MODOLE NOMBER 6 
CALLING MODOLE NOMBER 1 


RHO - 
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NASA/AMBS A C S Y H T 
FOSELAGE DEFINITION 


X 

R 

AREA 

0.00 

0.00 

0.00 

0.38 

0.23 

0.17 

0.76 

0.38 

0.46 

1.14 

0.51 

0.82 

1.52 

0.62 

1.22 

1.90 

0.72 

1.64 

2.28 

0.81 

2.08 

2.66 

0.90 

2.53 

3.04 

0.97 

2.97 

3.42 

1.04 

3.41 

3.60 

1.11 

3.84 

4.18 

1.16 

4.26 

4.56 

1.22 

4.65 

4.94 

1.26 

5.02 

5.32 

1.31 

5.37 

5.70 

1.35 

5.69 

6.08 

1.38 

5.98 

6.46 

1.41 

6.24 

6.84 

1.43 

6.47 

7.22 

1.46 

6.66 

7.60 

1.47 

6.81 

7.98 

1.49 

6.93 

8.36 

1.49 

7.02 

8.74 

1.50 

7.06 

9.12 

1.50 

7.07 

9.50 

1.50 

7.07 

9.88 

1.50 

7.07 

10.26 

1.50 

7.07 

10.64 

1.50 

7.07 

11.02 

1.50 

7.07 

11.40 

1.50 

7.07 

11.78 

1.50 

7.07 

12.16 

1.50 

7.07 

12.54 

1.50 

7.07 

12.92 

1.50 

7.07 

13.30 

1.50 

7.07 

13.68 

1.53 

7.37 

14.06 

1.55 

7.57 

14.44 

1.56 

7.68 

14.82 

1.56 

7.69 

15.20 

1.55 

7.59 

15.58 

1.53 

7.39 

15.96 

1.50 

7.08 

16.34 

1.46 

6.67 

16.72 

1.40 

6.15 

17.10 

1.33 

5.54 

17.48 

1.24 

4.82 

17.86 

1.13 

4.02 

18.24 

1.00 

3.14 

18.62 

0.83 

2.16 

19.00 

0.54 

0,93 


* 


**FINAL ODTPOT** 
NACEU.E definition 


X-XNOSE 

R 

AREA 

0.00 

1.04 

3.41 

1.98 

1.04 

3.41 

5.93 

1.04 

3.41 

7.91 

1.04 

3.41 


*• **P0DS** 


MAX. DIAMETER. 


3.000 


2.062 


NACELLE LOCATION 
X Y 

9.50 0.46 


FINENESS RATIO. 6.333 

SORFACE AREA. 166.616 . 51.755 (EACH) 


VOLDHE 


101.658 


Z 

0.00 
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NASA/AMES A C S Y N T **FINAL OOTPDT** 
DIMENSIONS OF PLANAR SORFACES 




WING H.TAIL 

V.TAIL 

CANARD 

UNITS 

PLAN AREA. 


160.0 

0.0 

20.0 

25.0 

(SQ.FT.) 

SURFACE AREA. 


304. S 

0.0 

36.1 

20.5 

(SQ.FT.) 

VOLUME. 


39.7 

0.0 

2.5 

3.6 

(CU.FT.) 

SPAN. 


29.665 

0.000 

7.746 

7.746 

(FT.) 

L.E. SNEEP. 


5.592 

0.000 

30.000 

30.000 

(DEG.) 

C/4 SWEEP. 


0.000 

0.000 

27.555 

21.741 

(DEG.) 

T.E. SWEEP. 

.. -16.368 

0.000 

19.551 

-7.797 

(DEG.) 

ASPECT RATIO .... 


5.500 

0.000 

3.000 

2.400 


ROOT CHORD. 


8.298 

0.000 

3.443 

4.611 

(FT.) 

ROOT THICKNESS... 


5.974 

0.000 

2.892 

3.320 

(IN.) 

ROOT T/C . 


0.060 

0.000 

0.070 

0.060 


TIP CHORD. 


2.489 

0.000 

1.721 

1.844 

(FT.) 

TIP THICKNESS.... 


1.792 

0.000 

1.239 

1.328 

(IN.) 

TIP T/C . 


0.060 

0.000 

0.060 

0.060 


TAPER RATIO . 


0.300 

0.000 

0.500 

0.400 


MEAN AERO CHORD.. 


5.915 

0.000 

2.678 

3.425 

(FT.) 

LE ROOT AT. 


8.376 

0.000 

15.557 

0.950 

(FT.) 

C/4 ROOT AT. 


10.450 

0.000 

16.418 

2.103 

(FT.) 

TE ROOT AT . 


16.673 

0.000 

19.000 

5.561 

(FT.) 

LE M.A.C. AT. 


8.971 

0.000 

17.545 

1.908 

(FT.) 

C/4 M.A.C. AT_ 


10.450 

0.000 

18.214 

2.-^65 

(FT.) 

TE M.A.C. AT. 


14.886 

0.000 

20.223 

5.333 

(FT.) 

Y M.A.C. AT. 


6.085 

0.000 

3.443 

1.660 


LE TIP AT. 


9.828 

0.000 

20.029 

3.186 

(FT.) 

C/4 TIP AT. 


10.450 

0.000 

20.460 

3.647 

(FT.) 

TE TIP AT. 


12.317 

0.000 

21.751 

5.030 

(FT.) 

ELEVATION. 


1.500 

0.000 

1.500 

0.000 

(FT.) 

VOLUME COEFF, ... 



0.000 

0.033 

-0.203 


E X T E 

N S 

IONS 







Stzaka Raar Extanslon 


C*ntrold location 

1 at 


0.000 

0.000 



Axaa. 

• • a 


0.000 

0.000 



Wattad Araa. 

a a a 


0.000 

0.000 



Voluma. 

a a a 


0.000 

0.000 



Swaap Angla. 

... 


0.000 




FUEL 

T 

A N K S 





TANK VOLUME 

WEIGHT 

DENSITY 



WING 

0. 

0. 

48 

.62 



FUSfl 37. 

1804. 

48 

.62 



FUS«2 

0. 

0. 

50 

.00 



TOTAL 


1804. 





MISSION FUEL REQUIRED- 1804. 




AVAILABLE FUEL VOLUME IN WING- 

32. 



AIRCRAFT WEIGHT 

m 

4994.351 

Lbs. 




AIRCRAFT VOLUME 

m 

147.479 

Cu.Ft. 




AIRCRAFT DENSITY 

■ 

33.865 

Lbs./Cu.Ft. 




CASE- 4 

CALLING MODULE NUMBER 2 
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TRAJECTORY OOTPOT 


MISSIOM 1 


PHASE 

M 

H 

CL 


SFC(I) 

THRDST(I) 

CD 


SPC(0) 

THRUST(D) 

CDINST 

CLIMB 

0.94 

30000. 

0.0627 


1.00 

3283. 

0.0067 

CYCLE 

0.99 

0. 

0.0007 

CROISE 

o.eo 

30000. 

0.1030 


1.02 

348. 

0.0077 

CYCLE 

1.02 

348. 

0.0000 

ACCEL 

1.60 

30000. 

0.0248 


1.74 

8601. 

0.0345 

CYCLE 

1.71 

8733. 

0.0007 

COMBAT 

1.60 

30000. 

0.1450 


1.66 

8061. 

0.0445 

CYCLE 

1.63 

8733. 

0.0007 

CROISE 

0.80 

30000. 

0.0773 


1.06 

321. 

0.0071 

CYCLE 

1.06 

321. 

0.0000 

DESCENT 

0.26 

0. 

0.2480 


1.29 

435. 

0.0143 

CYCLE 

1.29 

435. 

0.0000 


(PAYLOAD 

- 400. 

LB) 


ALPHA 

NFOEL 

TIME 

VEL 

GAMMA 

N 

HA 

Q 

L/D 

TUR/THA 

PR 

X 

0.89 

49.4 

0.62 

936 

36.81 

4772.4 

43.78 

390, 

9.29 

1.00 

1.00 

3, 

1.25 

181.9 

30.54 

796 

0.00 

4590.5 

28.41 

282 

13.35 

0.11 

1.00 

240 

0.77 

130.8 

0.73 

1592 

0.00 

4459.6 

81.96 

1128 

0.72 

1.86 

0.95 

9 

4.19 

891.9 

4.00 

1592 

0.00 

3567.8 

81.96 

1128 

3.26 

1.74 

0.95 

63 

0.93 

115.6 

20.36 

796 

0.00 

3452.2 

28.31 

282 

10.91 

0.10 

1.00 

160 

3.08 

156.8 

23.98 

291 

3.30 

3295.4 

50.04 

101 

17.37 

0.06 

1.00 
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FOEL SO^MARIES 


MISSION FOEL - 1699. 
RESERVE FOEL - 65. 
TRAPPED FOEL - 20. 


TOTAL FOEL - 1604. 


TAKEOFF FOEL 
NFTOl - 56. 

HFT02 - 116. 


FOEL CARRIED : 
EXTERNALLY > 0. 

INTERNALLY - 1604. 


ADDITIONAL COMBAT PARAMETERS 



CONDITIONS 

PS 

NZ 

TDOT 

RADIUS 

ALPHA 

CL 

CD 

M-> 1.60 

1 G FLIGHT 

648.2 

1.00 

0.00 

0. 

0.76 

0.025 

0.0345 

H-30000. 

SOSTAINED 

0.0 

6.85 

7.85 

11619. 

4.73 

0.165 

0.0475 


MAX. INST. 

-835.1 

10.00 

11.52 

7915. 

6.20 

0.221 

0.0573 


COMBAT ENERGY - 0.203564E-I-06 



BLOCK TIME 

m 

1.337 

HOURS 


BLOCK RANGE 

m 

559.5 

N. M. 

TAKEOFF 

FIELD LENGTH(TOTAL RUN) 

m 

2417. 

FEET 

LANDING 

FIELD LENGTH(TOTAL RUN) 

m 

12617. 

FEET 

LANDING 

FIELD LENGTH(GROUND RUN) 

m 

2742. 

FEET 

HEIGHT FOR LANDING CALCULATION 

m 

3978. 

POUNDS 

LANDING 

THRUST TO HEIGHT RATIO 

m 

2.3SB 



TAKEOFF HEIGHT 

m 

4994. 

POUNDS 


LANDING HEIGHT 

m 

3295. 

POUNDS 


CALLING MODOLE NOMBER 3 
D^tall^d Aerodynamics Output 

Mach - 0.60 

Altitude - 10000. 


Parasite Drag 


Induced Drag 


Friction 

.0055 

Alpha 

Body 

.0016 

0.0 

Hing 

.0032 

3.0 

Strakes 

.0000 

6.0 

H. Tall 

.0000 

0.0 

V. Tail 

.0005 

9.0 

Canard 

.0003 

12.0 

Pods 

.0000 

15.0 

Engine 

.0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 

Interference 

.0015 


Have 

.0000 


External 

.0000 


Tanks 

.0000 


Bontoa 

.0000 



Cl 

Cd 

L/D 

Cm 

0.000 

0.0070 

0.0 

0.000 

0.268 

0.0157 

17.1 

0.029 

0.512 

0.0440 

11.7 

0.053 

0.000 

0.0070 

0.0 

0.000 

0.732 

0.0910 

8.1 

0.072 

0.927 

0.1544 

6.0 

0.087 

1.096 

0.2316 

4.7 

0.099 

1.240 

0.3196 

3.9 

0.108 

1.363 

0.4193 

3.3 

0.115 

1.474 

0.5421 

2.7 

0.121 


Slope Factors 
ClAlpha 
Cdl^.SAlpha 


e Cdtriffi Deltrim Zone 

0.00 

0.0000 

0.0 

3 

0.48 

0.0000 

0.0 

3 

0.41 

0.0000 

0.0 

3 

0.00 

0.0000 

0.0 

3 

0.37 

0.0000 

0.0 

3 

0.34 

0.0000 

0.0 

3 

0.31 

0.0000 

0.0 

3 

0.28 

0.0000 

0.0 

3 

0.26 

0.0000 

0.0 

3 

0.24 

0.0000 

0.0 

3 


0.0614 

0.0305 
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Storas 

Extra 

Cambar 


0000 

0000 

0000 


FOR AM 0BI.IQDE MING 

SNEEP * 0.00 
YAWED ASPECT RATIO - 5.50 
DRAG RISE MACH NO. - 0.000 


FOR VARIABLE SWEEP 

SWEEP - 0.00 

SWEPT ASPECT RATIO - 5.50 

DRAG RISE MACH NO. 0.000 

Mach - 0.70 

Altltuda - 30000. 


Paxaalta Drag Inducad Drag 


Friction 

.0054 

Alpha 

Cl 

Cd 

L/D 

Cm 

a Cdtrim Daltrim Zona 

Body 

.0016 

0.0 

0.000 

0.0069 

0.0 

0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0031 

3.0 

0.280 

0.0165 

16.9 

0.024 

0.47 

0.0000 

0.0 

3 

Strakas 

.0000 

6.0 

0.535 

0.0475 

11.3 

0.043 

0.41 

0.0000 

0.0 

3 

H. Tail 

.0000 

0.0 

0.000 

0.0069 

0.0 

0.000 

0.00 

0.0000 

0.0 

3 

V. Tail 

.0005 

9.0 

0.764 

0.0985 

7.8 

0.058 

0.37 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.967 

0.1670 

5.8 

0.069 

0.34 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

1.143 

0.2498 

4.6 

0.077 

0.31 

0.0000 

0.0 

3 

Engina 

.0000 

18.0 

1.294 

0.3440 

3.8 

0.083 

0.29 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.421 

0.4497 

3.2 

0.087 

0.26 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.537 

0.5795 

2.7 

0.090 

0.24 

0.0000 

0.0 

3 


Intarfaranoa .0015 
Wava .0000 

Extarnal .0000 Slopa Factors 

Tanks .0000 ClAlpha 0.0640 

Bombs .0000 Cdl^.5Alpha 0.0315 

Storas .0000 

Extra .0000 

Cambar .0000 


FOR AM OBLIQOE WING 

SWEEP - 0.05 
YAWED ASPECT RATIO - 5.50 
DRAG RISE MACH MO. - 0.000 


FOR VARIABLE SWEEP 

SWEEP - 0.05 
SWEPT ASPECT RATIO - 5.50 
DRAG RISE MACH MO. - 0.000 
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D«tail«d Aerodynamics Output 


Mach ■> 

0.80 









Altitude « 30000. 









Parasite Drag 


Induced Drag 







Friction 

.0049 

Alpha 

Cl 

Cd 

L/D Cm 

• Cdtrim DeXtrim Zone 

Body 

.0015 

0.0 

0.000 

0.0063 

0.0 0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0026 

3.0 

0.241 

0.0149 

16.1 -.002 

0.50 

0.0000 

0.0 

3 

Strakes 

.0000 

6.0 

0.459 

0.0420 

10.9 -.005 

0.44 

0.0000 

0.0 

3 

H. Tail 

.0000 

0.0 

0.000 

0.0063 

0.0 0.000 

0.00 

0.0000 

0.0 

3 

V. Tail 

.0005 

9.0 

0.655 

0.0862 

7.6 -.009 

0.40 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.829 

0.1453 

5.7 -.014 

0.37 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

0.981 

0.2167 

4.5 -.019 

0.34 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

1.112 

0.2980 

3.7 -.024 

0.31 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.226 

0.3899 

3.1 -.030 

0.29 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.335 

0.5062 

2.6 -.037 

0.26 

0.0000 

0.0 

3 

Interference 

.0015 









Have 

.0000 









External 

.0000 



Slope Factors 





Tanks 

.0000 




ClAlpha 

0.0556 




Bombs 

.0000 




Cdl''.5Alpha 

0.0295 




Stores 

.0000 









Extra 

.0000 









Camber 

.0000 









Cdmin 

Too?! 









FOR AM OBLIQOE WING 








SWEEP 


> 29.01 








YAWED ASPECT RATIO 

■ 4.31 








DRAG RISE MACH NO. 

. 0.000 








FOR VARZABIE SHEEP 









SHEEP 


- 29.01 








SWEPT ASPECT RATIO 

« 4.31 








DRAG RISE MACH NO. 

- 0.000 








Mach - 

0.90 









Altitude ■> 30000. 









Parasite Drag 


Induced Drag 







Friction 

.0046 

Alpha 

Cl 

Cd 

L/D Cm 

e Cdtrim DeXtrim Zone 

Body 

.0015 

0.0 

0.000 

0.0061 

0.0 0.000 

0.00 

0.0000 

0.0 

3 

Wing 

.0024 

3.0 

0.213 

0.0140 

15.2 -.007 

0.52 

0.0000 

0.0 

3 

Strakes 

.0000 

6.0 

0.405 

0.0385 

10.5 -.015 

0.46 

0.0000 

0.0 

3 

H. Tail 

.0000 

0.0 

0.000 

0.0061 

0.0 0.000 

0.00 

0.0000 

0.0 

3 

V. Tail 

.0005 

9.0 

0.577 

0.0783 

7.4 -.023 

0.42 

0.0000 

0.0 

3 

Canard 

.0003 

12.0 

0.729 

0.1310 

5.6 -.031 

0.39 

0.0000 

0.0 

3 

Pods 

.0000 

15.0 

0.864 

0.1944 

4.4 -.040 

0.36 

0.0000 

0.0 

3 

Engine 

.0000 

18.0 

0.981 

0.2668 

3.7 -.048 

0.34 

0.0000 

0.0 

3 

Cowl 

.0000 

21.0 

1.085 

0.3492 

3.1 -.057 

0.31 

0.0000 

0.0 

3 

Boattail 

.0000 

24.0 

1.241 

0.5258 

2.4 -.074 

0.27 

0.0000 

0.0 

3 

Interference 

.0015 









Wave 

.0000 









External 

.0000 



Slope Factors 





Tanks 

.0000 




ClAlpha 

0.0517 



Bombs 

.0000 




Cdl^.SAlpha 

0.0300 
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Stores .0000 

Extra .0000 

Camber .0000 


Cdmirt . 0061 


FOR AN OBLIQOE WING 

SHEEP - 38.99 
YAMED ASPECT RATIO - 3.49 
DRAG RISE NACH NO. « 0.000 


FOR VARIABLE SHEEP 

SHEEP - 38.99 

SHEPT ASPECT RATIO - 3.49 

DRAG RISE MACH NO. - 0.000 
Detailed Aerodynamics Output 

Mach - 1.00 

Altitude - 30000. 


Parasite Drag 


Friction 

.0044 

Alpha 

Body 

.0015 

0.0 

Hlng 

.0022 

3.0 

Strakes 

.0000 

6.0 

H. Tail 

.0000 

0.0 

V. Tail 

.0005 

9.0 

Canard 

.0002 

12.0 

Pods 

.0000 

15.0 

Engine 

.0000 

18.0 

Cowl 

.0000 

21.0 

Boattail 

.0000 

24.0 


Interference 

.0003 

Have 

.0298 

External 

.0000 

Tanka 

.0000 

Bonba 

.0000 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 

Cdmin 

.0516 


Drag 


Cl 

Cd 

L/D 

Cm 

0.000 

0.0346 

0.0 

0.000 

0.192 

0.0420 

4.6 

-.010 

0.365 

0.0648 

5.6 

-.020 

0.000 

0.0346 

0.0 

0.000 

0.519 

0.1014 

5.1 

-.031 

0.656 

0.1497 

4.4 

- .041 

0.024 

0.2375 

3.5 

-.064 

0.930 

0.3133 

3.0 

-.080 

1.024 

0.3992 

2.6 

-.096 

1.109 

0.5017 

2.2 

-.111 


Slope Factors 
ClAlpha 
Cdl^.SAlpba 


e Cdtrim Deltrim Zone 


0.00 

0.0000 

0.0 

3 

0.54 

0.0000 

0.0 

3 

0.48 

0.0000 

0.0 

3 

0.00 

0.0000 

0.0 

3 

0.44 

0.0000 

c.o 

3 

0.41 

0.0000 

0.0 

3 

0.37 

0.0000 

0.0 

3 

0.34 

0.0000 

0.0 

3 

0.31 

0.0000 

0.0 

3 

0.29 

0.0000 

0.0 

3 


0.0462 

0.0285 


FOR AN OBLIQUE HING 

SHEEP - 45.62 
YAHED ASPECT RATIO - 2.91 
DRAG RISE MACH NO. - 0.000 


FOR VARIABLE SHEEP 

SHEEP - 45.62 
SHEPT ASPECT RATIO - 2.91 
DRAG RISE MACH NO. > 0.000 
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M«ch 

Altitude 


1.20 

30000. 


Parasite Drag 


Friction 

.0041 

Body 

.0014 

Hing 

.0020 

Strakes 

.0000 

H. Tail 

.0000 

V. Tail 

.0004 

Canard 

.0002 

Pods 

.0000 

Engine 

.0000 

Cowl 

.0000 

Boattall 

.0000 

Interference 

.0002 

Have 

.0317 

External 

.0000 

Tanks 

.0000 

Bombs 

.0000 

Stores 

.0000 

Extra 

.0000 

Camber 

.0000 


Induced Drag 


Alpha 

Cl 

Cd 

0.0 

0.000 

0.0360 

3.0 

0.170 

0.0444 

6.0 

0.364 

0.0742 

0.0 

0.000 

0.0360 

9.0 

0.394 

0.0911 

12.0 

0.493 

0.1274 

15.0 

0.611 

0.1778 

18.0 

0.741 

0.2468 

21.0 

0.878 

0.3362 

24.0 

1.008 

0.4414 


I./D Cm e 

0.0 0.000 0.00 

3.8 0.000 0.51 

4.9 0.000 0.51 

0.0 0.000 0.00 

4.3 0.000 0.42 

3.9 0.000 0.39 

3.4 0.000 0.39 

3.0 0.000 0.39 

2.6 0.000 0.38 

2.3 0.000 0.37 


Cdtrim Deltrim Zone 


0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 


Slope Factors 

ClAlpha 0.0420 

Cdl^.5Alpha 0.0265 


Cdmin.0360 


FOR AM OBLIQOE HIMG 

SHEEP « 54.36 
YAHED ASPECT RATIO - 2.15 
DRAG RISE MACH MO. - 0.000 


FOR VARIABLE SHEEP 

SHEEP - 54.36 

SHEPT ASPECT RATIO - 2.15 

DRAG RISE MACH MO. > 0.000 
Detailed Aerodynamics Output 


Mach > 1.40 

Altitude - 30000. 


Parasite Drag 


Friction 

.0038 

Body 

.0013 

Hing 

.0018 

Strakes 

.0000 

H. Tall 

.0000 

V. Tail 

.0004 

Canard 

.0002 

Pods 

.0000 

Engine 

.0000 

Cowl 

.0000 

Boattail 

.0000 

Interference 

.0002 

Have 

.0311 

External 

.0000 

Tanks 

.0000 

Bombs 

.0000 


Induced Drag 


Alpha 

Cl 

Cd 

0.0 

0.000 

0.0351 

3.0 

0.100 

0.0403 

6.0 

0.210 

0.0563 

0.0 

0.000 

0.0351 

9.0 

0.318 

0.0821 

12.0 

0.437 

0.1199 

15.0 

0.560 

0.1695 

18.0 

0.687 

0.2325 

21.0 

0.831 

0.3183 

24.0 

0.971 

0.4201 


L/D Cm e 

0.0 0.000 0.00 

2.5 0.000 0.36 

3.7 0.000 0.39 

0.0 0.000 0.00 

3.9 0.000 0.40 

3.6 0.000 0.42 

3.3 0.000 0.44 

3.0 0.000 0.45 

2.6 0.000 0.46 

2.3 0.000 0.46 


Cdtrim Deltrim Zone 


0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

5 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 

0.0000 

0.0 

6 


Slope Factors 

ClAlpha 0.0405 

Cdl^.5Alpha 0.0259 
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Storva 

Extra 

Canbar 


.0000 

.0000 

.0000 


FOR AH OBLIQUE KING 

SHEEP - 60.00 
YANED ASPECT RATIO - 1.70 
DRAG RISE MACH MO. - 0.000 


FOR VARIABLE SHEEP 

SHEEP - 60.00 
SHEPT ASPECT RATIO - 1.70 
DRAG RISE MACH MO. - 0.000 


Maob ■■ 1.60 

Altituda - 30000. 


Paraalta Drag 
Friction 

.0036 

Inducad Drag 
Alpha Cl 

Cd 

L/D 

Cm 

a Cdtrim Daltrim Zona 

Body 

.0013 

0.0 

0.000 

0.0341 

0.0 

0.000 

0.00 

0.0000 

0.0 

5 

Ming 

.0017 

3.0 

0.102 

0.0394 

2.6 

0.000 

0.37 

0.0000 

0.0 

5 

Strakaa 

.0000 

6.0 

0.214 

0.0558 

3.8 

0.000 

0.40 

0.0000 

0.0 

5 

R. Tail 

.0000 

0.0 

0.000 

0.0341 

0.0 

0,000 

0.00 

0.0000 

0.0 

5 

V. Tail 

.0004 

9.0 

0,333 

0.0640 

4.0 

0.000 

0.42 

0.0000 

0.0 

5 

Canard 

.0002 

12.0 

0.456 

0.1242 

3.7 

0.000 

0.43 

0.0000 

0.0 

5 

Pods 

.0000 

15.0 

0.563 

0.1710 

3.3 

0.000 

0.43 

0.0000 

0.0 

6 

Engina 

.0000 

le.o 

0.669 

0.2347 

2.9 

0.000 

0.44 

0.0000 

0.0 

6 

Cowl 

.0000 

21.0 

0.830 

0.3202 

2.6 

0.000 

0.45 

0.0000 

0.0 

6 

Boattail 

.0000 

24.0 

0.973 

0.4249 

2.3 

0.000 

0.45 

0.0000 

0.0 

6 


Zntarfaranca .0002 
Hava .0304 

Extarnal .0000 Slopa Faotora 

Tanka .0000 ClAlpha 0.0405 

BoiMsa .0000 Cdl^.SAlpha 0.0260 

Stoxaa .0000 

Extra .0000 

Cambar .0000 


FOR AH OBLIQUE HIMG 

SHEEP - 60.00 
YAHED ASPECT RATIO - 1.70 
DRAG RISE MACH HO. - 0.000 


FOR VARIABLE SHEEP 

SHEEP - 60.00 

SHEPT ASPECT RATIO - 1.70 

DRAG RISE MACH HO. - 0.000 
CALLIH6 MODULE HUMBER 4 
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ENGINE SUMMARY 


ENGINE DIAMETER - 1.81 FEET 

ENGINE LENGTH- 5.27 FEET 
ENGINE WEIGHT- 841.06 POUNDS 
BYPASS RATIO - 0.00 

NO OF ENGINES PER AC - 1. 

A/C DRAG REF AREA - 160.00 SQ FEET 

INLET CAPTURE AREA PER ENG - 1.587 SQ FEET 

rWCC - PERCENT OF ENGINE CORRECTED AIRFLOW 
THRUST - ENGINE THRUST (POUNDS PER ENGINE) 

SFC - ENGINE SPECIFIC FUEL CONSUMPTION 

WTOT - ENGINE TOTAL AIRFLOW (LBS/SEC PER ENGINE) 

OV EF - ENGINE OVERALL EFFICIENCY 

PR EF - ENGINE PROPULSIVE EFFICIENCY 

TPR - INLET TOTAL PRESSURE RECOVERY (TO EN FACE) 

NPR - NOZZLE PRESSURE RATIO 

TIT - TURBINE INLET TEMPERATURE (DEG R) 

EGT - ENGINE EXHAUST GAS TEMPERATURE 

CPR - OVERALL COMPRESSOR PRESSURE RATIO 

THRUSTU- THRUST PER ENGINE IN LBS, W/0 INSTAL DRAG CORR 

SFCU - SFC,1/HR, W/O INSTALLATION DRAG CORR 

ABYAC - FREESTREAM BYPASS FLOW AREA/AC 

ABLAC - FREESTREAM INLET BLEED FLOW AREA/AC 

ANOZ - AREA OF NOZZLE EXIT, FT**2 

BETA - NOZZLE BOATTAIL ANGLE IN DEGREES 

AO/AC - FREE STREAM TO CAPTURE AREA RATIO 

CDINS - TOT INSTALLATION DRAG COEF PER A/C (SWING REF) 

CDADD - ADDITIVE DRAG COEF PER A/C (SWING REF) 

CDSP - SUBSONIC SPILL DRAG COEFF PER A/C (SWING REF) 
CDBL - INLET BLEED DRAG COEF PER A/C (SWING REF) 

CDBP - INLET BYPASS DRAG PER A/C (SWING REF) 

CDAUX - AUX AIR SYSTEM DRAG COEF PER A/C (SWING REF) 
CDDIV - INLET BO. LAYER DIVERT DRAG PER A/C (SWING REF) 
CDBT - NOZZLE BOATTAIL DRAG COEF PER A/C (SWING REF) 

CDINF - DRAG COEF OF BASE AREA BETWEEN NOZZLES (PER A/C) 

INSTALL DRAG COEF SCALE FACTORS 
SFINSP - 1.0000 

SFADP - 1.0000 

SFADSP - 1.0000 

SFBEP - 1.0000 

SFBPP - 1.0000 

SFAUXP - 1.0000 

SFDIVP - 1.0000 

SFIP - 0.0000 

SFBTP - 0.0000 
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MACH - 0.000 ALTITODE ■ 0.00 FEET 


PMCC 

THROST 

src 

NTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THROSTO 

SFCO 

ABYAC 

ABLAC 

ANOE 

BETA 






AO/AC 

COINS 

CDADD 

COSP 

COBL 

CDBP 

CDAOX 

CDDIV 

CDBT 

CO INF 

100.0 

6044. 

0.816 

74. 

0.000 

0.000 

1.000 

4.95 

2600. 

1917. 

22.54 


6044. 

0.816 

0.000 

0.000 

3.12 

15.89 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 


98.0 

6268. 

0.781 

73. 

0.000 

0.000 

1.000 

4.45 

2457. 

1782. 

21.47 


6268. 

0.781 

0.000 

0.000 

3.12 

15.89 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

96.0 

5711. 

0.747 

71. 

0.000 

0.000 

1.000 

3.99 

2319. 

1653. 

20.44 


5711. 

0.747 

0.000 

0.000 

3.12 

15.86 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 


94.0 

5171. 

0.714 

70. 

0.000 

0.000 

1.000 

3.56 

2188. 

1530. 

19.43 


5171. 

0.714 

0.000 

0.000 

^.12 

15.78 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

92.0 

4648. 

0.681 

68. 

0.000 

0.000 

1.000 

3.15 

2062. 

1413. 

18.47 


4648. 

0.681 

0.000 

0.000 

3.12 

15.65 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

90.0 

4135. 

0.650 

67. 

0.000 

0.000 

1.000 

2.77 

1943. 

1302. 

17.53 


4135. 

0.650 

0.000 

0.000 

3.12 

15.44 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

88.0 

3636. 

0.620 

65. 

0.000 

0.000 

1.000 

2.42 

1829. 

1197. 

16.64 


3636. 

0.620 

0.000 

0.000 

3.12 

15.14 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 


86.0 

3142. 

0.593 

64. 

0.000 

0.000 

1.000 

2.10 

1721. 

1098. 

15.77 


3142. 

0.593 

0.000 

0.000 

3.12 

14.68 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

84.0 

2646. 

0.572 

63. 

0.000 

0.000 

1.000 

1.81 

1618. 

1005. 

14.94 


2646. 

0.572 

0.000 

0.000 

3.12 

13.99 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

82.0 

2135. 

0.562 

61. 

0.000 

0.000 

1.000 

1.55 

1521. 

918. 

14.13 


2135. 

0.562 

0.000 

0.000 

3.12 

12.87 






1000.000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 
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80.0 1580. 0.583 60. 0.000 0.000 1.000 1.31 1429. 836. 13.37 

1580. 0.583 0.000 0.000 3.12 10.80 

1000.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 


78.0 877. 0.767 58. 0.000 0.000 1.000 1.10 1342. 761. 12.63 

877. 0.767 0.000 0.000 3.12 4.93 

1000.000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 


MACH - 0.600 AITITODE - 10000.00 FEET 


PWCC 

THRUST 

SFC 

MTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRDSTU 

SFCD 

ABYAC 

ABLAC 

AHOZ 

BETA 






AO/AC 

COINS 

CD ADD 

COSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD INF 

100.0 

5041. 

0.970 

65. 

0.166 

0.357 

1.000 

6.31 

2596. 

1914. 

22.54 


5041. 

0.970 

0.000 

0.000 

3.12 

14.89 






1.126 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 


98.0 

4558. 

0.541 64. 0.171 

0.375 1.000 5.68 2452. 1779. 

21.47 


4558. 

0.941 0.000 0.000 

3.12 14.92 



1.104 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 0.0000 

0.0000 


96.0 

4093. 

0.913 63. 0.176 

0.394 

1.000 

5.09 2315. 

1650. 20.44 


4093. 

0.913 0.000 0.000 

3.12 

14.93 




1.081 

0.0000 0.0000 0.0000 

0.0000 0.0000 

O.OOoO 0.0000 

0.0000 0.0000 


94.0 

3645. 

0.887 61. 0.181 

0.416 1.000 4.53 2184. 

1527. 19.43 


3645. 

0.887 0.000 0.000 

3.12 14.91 



1.059 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 


92.0 

3213. 

0.863 

60. 

0.186 

0.441 1.000 4.02 

2059. 1411. 

18.47 


3213. 

0.863 

0.000 

0.000 

3.12 14.85 




1.036 

0.0000 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 0.0000 

0.0000 


90.0 

2795. 

0.842 59. 0.191 

0.469 1.000 3.53 1940. 

1300. 17.53 


2795. 

0.842 0.000 0.000 

3.12 14.72 



1.014 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 


88.0 

2391. 

0.826 58. 0.195 

0.502 1.000 3.09 1826. 

1195. 16.64 


2391. 

0.826 0.000 0.000 

3.12 14.53 



0.991 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 


86.0 

1997. 

0.818 56. 0.197 

0.540 1.000 2.68 1718. 

1096. 15.77 


1997. 

0.818 0.000 0.000 

3.12 14.25 



0.969 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 


195 



84.0 

1610. 

0.824 55. 0.195 

0.587 1.000 2.31 1615. 

1003. 14.94 


1610. 

0.824 0.000 0.000 

3.12 13.82 



0.946 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 0.0000 


82.0 

1224. 

0.859 54. 0.187 

0.646 1.000 1.97 1518. 

916. 

14.13 


1225. 

0.859 0.000 0.000 

3.12 13.17 




0.924 

0.0000 0.0000 0.0000 

0.0000 0.0070 0.0000 0.0000 

0.0000 

0.0000 


80.0 

831 . 

0.970 

52 . 

0.166 

0 . 72 S 

1.000 

1.67 

1426 . 

835 . 

13.37 


831 . 

0.970 

0.000 

0.000 

3.12 

12.14 






0.901 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

78.0 

411 . 

1.435 

51 . 

0.112 

0.844 

1.000 

1.40 

1339 . 

759 . 

12.63 


411 . 

1.435 

0.000 

0.000 

3.12 

10.32 






0.879 

0.0000 

o.ooco 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 



HIVCH - 

0.800 

ALTITUDE - 

30000.00 FEET 




PWCC 

THRUST 

SFC 

WTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRUSTU 

SPCO 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD INF 

100.0 

2480. 

0.936 

36. 

0.212 

0.432 

1.000 

7.45 

2328. 

1700. 

22.54 


2480. 

0.936 

0.000 

0.000 

3.12 

14.05 






0.985 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

98.0 

2236. 

0.910 

35. 

0.218 

0.452 

1.000 

6.71 

2199. 

1580. 

21.47 


2236. 

0.910 

0.000 

0.000 

3.12 

14.11 






0.965 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

96.0 

2000. 

0.886 

34. 

0.224 

0.473 

1.000 

6.00 

2076. 

1464. 

20.44 


2000. 

0.886 

0.000 

0.000 

3.12 

14.14 






0.945 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

94.0 

1774. 

0.863 

34. 

0.230 

0.497 

1.000 

5.34 

1959. 

1355. 

19.43 


1774. 

0.863 

0.000 

0.000 

3.12 

14.15 






0.926 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

92.0 

1557. 

0.843 

33. 

0.235 

0.523 

1.000 

4.72 

1846. 

1250. 

18.47 


1557. 

0.843 

0.000 

0.000 

3.12 

14.12 






0.906 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

90.0 

1349. 

0.826 

32. 

0.240 

0.553 

1.000 

4.15 

1739. 

1152. 

17.53 


1349. 

0.826 

0.000 

0.000 

3.12 

14.04 






0.886 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 
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ee.o 

1147 . 

0.814 

31 . 

0.243 

0.587 1.000 3.63 

1638 . 

1058 . 16.64 


1147 . 

0.814 

0.000 

0.000 

3.12 13.90 




0.666 

0.0000 0.0000 

0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0000 0.0000 


66.0 

952. 

0.610 31. 0.244 

0.625 1,000 3.15 1541. 

971. 

15.77 


952. 

0.810 0.000 0.000 

3.12 13.68 




0.847 

0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0000 

0.0000 

0.0000 


64.0 

761. 0.821 30. 0.241 

761. 0.821 0.000 0.000 

0.671 1,000 2,71 

3.12 13.35 

1449. 

686. 

14.94 


0.827 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0000 

0.0000 


82.0 

574. 0.862 29. 0.230 

574. 0.862 0.000 0.000 

0.726 1.000 2.31 

3.12 12.86 

1362. 

811. 

14.13 


0.807 0.0000 0.0000 0.0000 

0.0000 0.0000 0.0000 

0.0000 

0.0000 

0.0000 


80.0 

387. 

0.976 

29. 

0.203 

0.795 

1.000 

1.95 

1279, 

739. 

13.37 


387. 

0.978 

0.000 

0.000 

3,12 

12.10 






0.788 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

76.0 

194. 

1.417 

26. 

0.140 

0.889 

1.000 

1.64 

1201. 

672. 

12.63 


194. 

1.416 

0.000 

0.000 

3.12 

10.88 






0.768 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 




MACH - 

1.000 

ALTITUDE - 

30000. 

00 FEET 





AFTERBORHER OR 

DUCTBURNER (OR 

BOTH) : 

LIT 




PWCC 

THRUST 

SFC 

HTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EOT 

CPR 


THROSTU 

SFCD 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CD ADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD INF 

100.0 

4899. 

1.661 

43. 

0.151 

0.384 

1.000 

9.32 

2478. 

1820. 

22.54 


4954 . 

1.643 

0.000 

0.000 

3.12 

9.76 






0.948 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 


100.0 

4786. 

1.624 43. 0.154 

0.388 1.000 9.32 2476. 1820. 

22.54 


4841. 

1,605 0.000 0.000 

3.12 9.93 



0.948 

0.0008 0.0000 0,0000 

0.0000 0.0000 0.0000 0.0008 0.0000 

0.0000 


100.0 

4672. 

1.586 43. 0.158 

0.392 1.000 9.32 

2478. 

1620. 22.54 


4727. 

1.567 0.000 0.000 

3.12 10.10 




0.946 

0.0008 0.0000 0.0000 

O.OObO 0.0000 0.0000 

0.0008 

0.0000 0.0000 


100,0 

4557. 

1.547 43. 0.162 

0.397 1.000 9.32 2478. 

1820. 22.54 


4612. 

1.529 0.000 0.000 

3.12 10.27 



0.948 

0.0008 0.0000 0.0000 

0.0000 0.0000 0.0000 0.0008 

0.0000 0.0000 
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xoo.o 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


100.0 


4442. 1.509 

4497. 1.490 

0.948 o.oooe 


4325. 1.470 
4380. 1.452 
0.948 0.0008 


4207. 1.431 
4262. 1.412 
0.948 0.0008 


4088. 1.391 
4143. 1.372 
0.948 0.0008 


3968. 1.350 
4023. 1.332 
0.948 0.0008 


3847. 1.310 
3902. 1.291 
0.948 0.0008 


3724. 1.268 
3779. 1.250 
0.948 0.0008 


3599. 1.226 
3654. 1.207 
0.948 0.0008 


3473. 1.183 
3528. 1.164 
0.948 0.0008 


3345. 1.139 
3400. 1.120 
0.948 0.0008 


3216. 1.093 
3271. 1.075 
0.948 0.0008 


43. 0.166 

0.000 0.000 
0.0000 0.0000 


43. 0.171 

0.000 0.000 
0.0000 0.0000 


43. 0.175 

0.000 0.000 
0.0000 0.0000 


43. 0.180 

0.000 0.000 
0.0000 0.0000 


43. 0.186 

0.000 0.000 
0.0000 0.0000 


43. 0.192 

0.000 0.000 
0.0000 0.0000 


43. 0.198 

0.000 0.000 
0.0000 0.0000 


43. 0.205 

0.000 0.000 
0.0000 0.0000 


43. 0.213 

0.000 0.000 
0.0000 0.0000 


43. 0.221 

0.000 0.000 
0.0000 0.0000 


43. 0.230 

0.000 0.000 
0.0000 0.0000 


0.401 1.000 

3.12 10.45 

0.0000 0.0000 


0.406 1.000 

3.12 10.63 

0.0000 0.0000 


0.411 1.000 

3.12 10.81 

0.0000 0.0000 


0.416 1.000 

3.12 11.00 

0.0000 0.0000 


0.422 1.000 

3.12 11.20 

0.0000 0.0000 


0.428 1.000 

3.12 11.40 

0.0000 0.0000 


0.434 1.000 

3.12 11.61 

0.0000 0.0000 


0.441 1.000 

3.12 11.83 

0.0000 0.0000 


0.448 1.000 

3.12 12.05 

0.0000 0.0000 


0.455 1.000 

3.12 12.28 

0.0000 0.0000 


0.463 1.000 

3.12 12.52 

0.0000 0.0000 


9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 

9.32 2478. 

0.0000 0.0008 


1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 

1820. 22.54 

0.0000 0.0000 
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MACH - 1.200 ALTITUDE - 30000.00 FEET 


AFTERBOBNER OR DOCTBDRMER (OR BOTH) LIT 


PWCC 

THRDST 

SFC 

MTOT 

OV EF 

PR EF 

TPR 

NPR 

TIT 

EGT 

CPR 


THRDSTD 

SFCU 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDAOD 

CDSP 

CDBL 

CDBP 

CDADX 

CDDIV 

CDBT 

CD INF 

100.0 

5925. 

1.660 

53. 

0.181 

0.433 

0.991 

11.46 

2600. 

1901. 

22.54 


6004. 

1.638 

0.000 

0.000 

3.12 

8.48 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5781. 

1.624 

53. 

0.186 

0.438 

0.991 

11.46 

2600. 

1901. 

22.54 


5860. 

1.602 

0.000 

0.000 

3.12 

8.65 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 


100.0 

5636. 

1.587 

53. 

0.190 

0.442 

0.991 

11.46 

2600. 

1901. 

22.54 


5715. 

1.565 

0.000 

0.000 

3.12 

8.83 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5490. 

1.550 

53. 

0.195 

0.447 

0.991 

11.46 

2600. 

1901. 

22.54 


5569. 

1.528 

0.000 

0.000 

3.12 

9.01 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 


100.0 

5343. 

1.512 

53. 

0.199 

0.452 

0.991 

11.46 

2600. 

1901. 

22.54 


5422. 

1.490 

0.000 

0.000 

3.12 

9.20 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5195. 

1.474 

53. 

0.205 

0.457 

0.991 

11.46 

2600. 

1901. 

22.54 


5274. 

1.452 

0.000 

0.000 

3.12 

9.39 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

5045. 

1.436 

53. 

0.210 

0.462 

0.991 

11.46 

2600. 

1901. 

22.54 


5124. 

1.414 

0.000 

0.000 

3.12 

9.58 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4894. 

1.397 

53. 

0.216 

0.468 

0.991 

11.46 

2600. 

1901. 

22.54 


4973. 

1.375 

0.000 

0.000 

3.12 

9.79 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 


100.0 

4741. 

1.358 

53. 

0.222 

0.474 

0.991 

11.46 

2600. 

1901. 

22.54 


4820. 

1.336 

0.000 

0.000 

3.12 

9.99 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

4586. 

1.318 

53. 

0.229 

0.480 

0.991 

11.46 

2600. 

1901. 

22.54 


4665. 

1.296 

0.000 

0.000 

3.12 

10.21 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 
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100.0 

4430. 

1.277 

53. 

0.237 

0.487 

0.991 

11.46 

2600. 

1901. 

22.54 


4509. 

1.255 

0.000 

0.000 

3.12 

10.43 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

o.oooo 

0.0008 

0.0000 

0.0000 

100.0 

A212. 

1.236 

53. 

0.245 

0.494 

0.991 

11.46 

2600. 

1901. 

22.54 


4351. 

1.213 

0.000 

0.000 

3.12 

10.65 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 


100.0 

4112. 

1.193 

53. 

0.254 

0.501 

0.991 

11.46 

2600. 

1901. 

22.54 


4191. 

1.171 

0.000 

0.000 

3.12 

10.89 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

3949. 

1.150 

53. 

0.264 

0.509 

0.991 

11.46 

2600. 

1901. 

22.54 


4028. 

1.127 

0.000 

0.000 

3.12 

11.13 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 

100.0 

3784. 

1.105 

53. 

0.274 

0.517 

0.991 

11.46 

2600. 

1901. 

22.54 


3863. 

1.083 

0.000 

0.000 

3.12 

11.39 






0.968 

0.0008 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0008 

0.0000 

0.0000 



MACH - 

1.600 

ALTITUDE - 

30000.1 

00 FEET 





AFTERBOHMER OR 

DOCTBORMER (OR 

BOTH) : 

LIT 




PWCC 

THRDST 

SFC 

NTOT 

OV EF 

PR EF 

TPR 

MPR 

TIT 

E6T 

CPR 


THROSTO 

SFCO 

ABYAC 

ABLAC 

ANOZ 

BETA 






AO/AC 

COINS 

CDADD 

CDSP 

CDBL 

CDBP 

CDAUX 

CDDIV 

CDBT 

CD INF 

100.0 

8601. 

1.741 

82. 

0.231 

0.530 

0.954 

14.37 

2600. 

1780. 

22.54 


8733. 

1.715 

0.000 

0.000 

3.12 

4.07 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

8369. 

1.706 

82. 

0.236 

0.534 

0.954 

14.37 

2600. 

1780. 

22.54 


8500. 

1.680 

0.000 

0.000 

3.12 

4.28 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 


100.0 

8134. 

1.671 

82. 

0.241 

0.539 

0.954 

14.37 

2600. 

1780. 

22.54 


8266. 

1.644 

0.000 

0.000 

3.12 

4.48 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

7898. 

1.635 

82. 

0.246 

0.545 

0.954 

14.37 

2600. 

1780. 

22.54 


8030. 

1.608 

0.000 

0.000 

3.12 

4.70 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 
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100.0 

7661. 

1.599 

82. 

0.252 

0.550 

0.954 

14.37 

2600. 

1780. 

22.54 


7793. 

1.572 

0.000 

0.000 

3.12 

4.92 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

7421. 

1.562 

82. 

0.258 

0.556 

0.954 

14.37 

2600. 

1780. 

22.54 


7553. 

1.535 

0.000 

0.000 

3.12 

5.14 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 


100.0 

7179. 

1.526 

82. 

0.264 

0.562 

0.954 

14.37 

2600. 

1780. 

22.54 


7311. 

1.496 

0.000 

0.000 

3.12 

5.38 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6935. 

1.488 

82. 

0.271 

0.568 

0.954 

14.37 

2600. 

1780. 

22.54 


7067. 

1.460 

0.000 

0.000 

3.12 

5.61 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0007 

0.0000 

0.0000 


100.0 

6688. 

1.450 

82. 

0.279 

0.574 

0.954 

14.37 

2600. 

1780. 

22.54 


6820. 

1.422 

0.000 

0.000 

3.12 

5.86 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6439. 

1.412 

82. 

0.286 

0.581 

0.954 

14.37 

2600. 

1780. 

22.54 


6571. 

1.383 

0.000 

0.000 

3.12 

6.11 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

6187. 

1.372 

82. 

0.295 

0.589 

0.954 

14.37 

2600. 

1780. 

22.54 


6319. 

1.344 

0.000 

0.000 

3.12 

6.37 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5932. 

1.332 

82. 

0.304 

0.596 

0.954 

14.37 

2600. 

1780. 

22.54 


6064. 

1.303 

0.000 

0.000 

3.12 

6.64 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5673. 

1.291 

62. 

0.314 

0.604 

0.954 

14.37 

2600. 

1780. 

22.54 


5805. 

1.262 

0.000 

0.000 

3.12 

6.91 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5411. 

1.249 

82. 

0.325 

0.613 

0.954 

14.37 

2600. 

1780. 

22.54 


5543. 

1.219 

0.000 

0.000 

3.12 

7.20 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 

100.0 

5146. 

1.205 

82. 

0.337 

0.622 

0.954 

14.37 

2600. 

1780. 

22.54 


5278. 

1.175 

0.000 

0.000 

3.12 

7.50 






1.129 

0.0007 

0.0000 

0.0000 

0.0000 0.0000 

0.0000 

0.0007 

0.0000 

0.0000 


SEA-LEVEL STATIC THRUST - 
SEA-LEVEL SFC 
CALLING MODULE NUMBER 6 


9500. (MAX) 
1.466 
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NEIGHT STATEMENT - FIGHTERS 
*** WEIGHTS DATA *** 

ACSYNT MODULE HUMBER 6 


COMPONENT 

POUNDS 

KILOGRAMS 

PERCENT 

AIRFRAME STRUCTURE 

1138. 

516. 

22.79 

WING 

421. 

191. 

8.43 

FUSELAGE 

535. 

243. 

10.71 

HORIZCHITAL TAIL 

0. 

0. 

0.00 

VERTICAL TAIL 

50. 

23. 

1.01 

CANARD 

17. 

8. 

0.34 

NACELLES 

13. 

6. 

0.26 

ALIGHTING GEAR 

102. 

46. 

2.05 

PROPULSION 

1093. 

496. 

21.89 

ENGINES (1) 

976. 

443. 

19.53 

FUEL SYSTEM 

118. 

53. 

2.36 

FIXED EQUIPMENT 

559. 

254. 

11.19 

BYD. + PNEU. 

42. 

19. 

0.84 

ELECTRICAL 

90. 

41. 

1.80 

AVIONICS 

210. 

95. 

4.20 

INSTRUMENTATION 

29. 

13. 

0.58 

DE-ICE/AIR CONDITION 

0. 

0. 

0.00 

AUXILIARY GEAR 

26. 

12. 

0.53 

FURNISH. + EQPT. 

0. 

0. 

0.00 

FLIGHT CONTROLS 

162. 

73. 

3.24 

FUEL 

1804. 

818. 

36.12 

PAYLOAD 

400. 

181. 

8.01 

FLIGHT CREW ( 0) 

0. 

0. 

0.00 

ARMAMENT 

0. 

0. 

0.00 

AMIUNZTIOH 

0. 

0. 

0.00 

MISSILES 

0. 

0. 

0.00 

BOMBS 

0. 

0. 

0.00 

EXTERNAL TANKS 

0. 

0. 

0.00 

ADV. WEAPONS 1 

0. 

0. 

0.00 

ADV. WEAPONS 2 

0. 

0. 

0.00 

CALCULATED WEIGHT 

4994. 

2265. 

100.00 

ESTIMATED WEIGHT 

4994. 

2265. 



PERCENT ERROR 0.00 


CALLING MODULE NUMBER 11 
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SOMIARY 


- ACSYNT OUTPDT - NASA, AMES RESEARCH CENTER 


OBLIQDE WING DAV 


GENERAL 

FUSELAGE 



WING 

CANARD 

VTAIL 

NG 

4994. 

LENGTH 


19.0 

AREA 

160.0 

25.0 

20.0 

N/S 

31.2 

DIAMETER 


3.0 

WETTED AREA 

304.5 

20.5 

36.1 

T/W 

1.90 

VOLUME 


101.7 

SPAN 

29.7 

7.7 

7.7 

M(Z) OLT 15.0 

NETTED AREA 

166.6 

L.E. SWEEP 

5.6 

30.0 

32.3 

CREN 

0. 

FINENESS 

RATIO 

6.3 

C/4 SWEEP 

0.0 

21.7 

27.6 

PASENGERS 0. 




ASPECT RATIO 

5.50 

2.40 

3.00 






TAPER RATIO 

0.30 

0.40 

0.50 

ENGINE 

WEIGHTS 


T/C ROOT 

0.06 

0.06 

0.07 






T/C TIP 

0.06 

0.06 

0.06 

NOMBER 

1. 


W 

WG 

ROOT CHORD 

8.3 

4.6 

3.4 

LENGTH 

5.3 

STRUCT. 

1136. 

22.6 

TIP CHORD 

2.5 

1.8 

1.7 

DIAM. 

1.8 

PROPUL. 

1093. 

21.9 

M.A. CHORD 

5.9 

3.4 

2.7 

HEIGHT 

841.1 

FIX. EQ. 

559. 

11.2 

LOC. OF L.E. 

8.4 

0.9 

15.6 

TSLS 

9500. 

FUEL 

1604. 

36.1 





SFCSLS 

1.47 

PAYLOAD 

400. 

8.0 








MISSION SUMMARY 





PHASE 

MACH 

ALT 

FUEL 

TIME 

DIST 

L/D 

THRUST 

SFC 

Q 

TAKEOFF 

0.00 

0. 

173. 

5.5 

2416.9 





CLIMB 

0.94 

30000. 

49. 

0.6 

2.6 

9.29 

3282.6 

1.004 

389.8 

CRUISE 

0.80 

30000. 

182. 

30.5 

240.0 

13.35 

348.3 

1.023 

282.1 

ACCEL 

1.60 

30000. 

131. 

0.7 

9.3 

0.72 

8601.2 

1.741 

1128.4 

COMBAT 

1.60 

30000. 

892. 

4.0 

62.9 

3.26 

8061.2 

1.660 

1128.4 

CRUISE 

0.60 

30000. 

116. 

20.4 

160.0 

10.91 

320.7 

1.063 

282.1 

DESCENT 

0.26 

0. 

157. 

24.0 

84.7 

17.37 

434.5 

1.286 

100.8 

LANDING 





12617.1 





BLOCK TIME - 

1.337 HR 







BLOCK RANGE - 

559.5 NM 








COMBAT PHASES 

MACH ALT PSIG NZS CLS CDS ALS NZI PSI CLI CDI ALI CBE 
l.«0 30000. 846. 6.9 0.145 0.0445 4.2 10.0 -835. 0.221 0.0573 6.2203564. 
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XIV. TROUBLESHOOTING 


A. OVERVIEW 

While every effort has been made with CREATE to prevent errors from 
occuring with ACSYNT, crashes still occur, lypically when working with a new 
design. When ACSYNT does crash, a printout like the one in Figure 8 occtirs. 
This printout can be used in tracking down the probable source of the error so 
that a correction may be made. On the right side of the output is a listing of 
the ACSYNT subroutines that were in use at the time of the crash. The first 


%TRACE'-E~TRACEBAiCKi aymbollo stack dunp follows 


ffloduls naiiM 

routins nans 

lins 

rsl PC 

abs PC 




0015E79E 

0015E79E 




0015E69B 

0015E69B 




0015A818 

0015A8ie 

PKODR 

PRODR 

318 

00001882 

OOOF1686 

PRODRl 

PROORl 

9 

0000003E 

000F45C6 

PROPEXEC 

PROPEXEC 

13 

00000034 

000F7FF8 

OVER3 

OVER3 

62 

00000049 

00105229 

ACSCYC 

ACSCYC 

92 

000001D8 

OOODBFAO 

ACSODT 

ACSOOT 

24 

00000062 

OOODBABA 

ANALIZ 

ANALIZ 

30 

00000080 

000DB488 

COPES 

COPES 

247 

000008E8 

000CD6E8 


Figure 8. Sample Error Output 


subroutine (in this case PRODR) is the subroutine where the error occured. 
The ACSYNT "chain" traces down to COPES, the main entry point for 


ACSYNT. Knowing that the error occured in the PRODR subroutine lets the 
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user know that the probable cause Ues with the Propulsion inputs. A listing 
of the subroutines for each Module of ACSYNT is given in the Ustings below. 
Note that the user does not have control over all of the Modules shown below, 
but they are given for completeness. 


• ACSYNT Control: ACSCYC, ACSIN, ACSOUT, ANALIZ, AT62, 
CONVG, DATAIO, DATARD, SUMARY, SUMCVT, SUMPRT, TAINT 

• Analysis Methods: COPES, COPEOl through COPE18, CONMIN, 
CNMNOl through CNMN08, OVERl 

• Geometry Module: AVOL, AVWING, BDREQD, BDYOUT, BODYl, 
BODY2, CHECKR, CHECKX, CRWSIZ, ERROR, FUSFIT, GCALC2, 
GEOMl, GINTT, GINPUT, GPLOT, GPRINT, GREAD, LOCELE, 
LOCENG, LOCFUL, LOCREW, LOCPAY, OVER2, PASSIZ, PLOTA5, 
PLOTA6, PLOTA7, PLOTA8, PLOTV2, PODLOC, PRFUEL, 
PRINTOUT, SCANER, SIZE, STRCALC, SWPANG, TAILS, TAILXX, 
VOLWNG, WCOOR, WNGOUT 

• Trajectory Module: ACCEL, CLIMB, COMBAT, CONVGR, CRUISE, 
DESCNT, FINDG, GOLDEN, LOITER, MAXRC, MISSION, OVER3, 
TAKEOF, TRAJA, TRAJDT, TRAJIN, TRAJOI, TRAJOO, TRPLOT 


• Aerodynamics Module: AER02, AEROX, AXE, AXEIN, AZROIN, 
BCLCD, BIV, COGEOM, DATIN, DATOUT, DECIDE, ENDRAG, 
EXTRDG, FDCLCD, FLAPS, FRCTN, FRICN, FUDGE, GEOM, 
GEOMB, GEOMC, GEOMN, GEOSET, INITIAL, INTERPOLATE, 
nSTTFDG, LIFT, MAIN, THERMO, TRIMDG, WAVEl, WAVES, 
WAVEDG 

• Propulsion Module: BRCKTl, BRCKT2, CDADDI, CDAUXI, CDBTA, 
CDBTAIL, CDBYPA, CDDIVI, CHLSKY, COMP, ENGCDI, ENGSET, 
ENGWT, GABSOIL, INPUT, INTRPL, LEWIS ENGINE SCALE, 
LSTSQR, MATMPY, OFFDl, PODGEO, PRINL, PRODR, PRODRl, 
PRODR2, PRODR3, PROP, PROPEXEC, PROUT, PRSUBS, SIZIN, 
TURBI, TURBOU, XINLET, XPODGEO, XZEROIN, ZEROIN 


• Weights Module: WAVEOO through WAVE03 
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CREATE has removed virtually all probability of errors with the 
Geometry, Aerodynamics cmd Weights modules. Errors do occur with the 
Tred^tory and Propulsion modules. The most common ones are given in the 
following sections. 

B. TRAJECTORY ERRORS 

Trajectory errors are almost always associated in some form with the 
proptilsion system installed on the design, t 3 npically due to insufficient or too 
much thrust. Listed below are the more prevelant errors and the solutions. 


• Mach Number Exceeds 2.0 in Climb Phase: When this occurs the rate of 
climb is set to 0.0, which results in an additional warning of "Ceiling 
Reached". This can occur for designs with a high thrust to wei^t ratio 
climbing at a high throttle setting. Reduce the throttle and if climbing 
more than 20,000 feet, try using two dimb phases instead of 1. 

* Drag is Thrust: This may be caused by several factors. The 

most common is to have a poorly defined geometry. A high thickness to 
chord ratio on a supersonic aircraft can result in a high wave drag, or the 
nose fineness ratio may not be high enough. Engine thrust also dies out 
as the mach number increases. Running a turbojet at speeds in excess 
of mach 2.4 is difficult with ACSYNT. If a swept wing is being used, 
ensiure that the sweep is programmed correctly. Also ensure that the 
engine efficiencies are set correctly. This warning will also occur if the 
time is set to 0.0 during an acceleration phase. 
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C. PROPULSION ERRORS 


The following error messages may occur with the Propulsion Module. The 
solutions are taken from Reference 4. 


• P5 is Less Than PfiS: The total pressure at the nozzle entrance is less 
than the free stream static pressure. This is the result of removing too 
much energy from the primary flow with the turbines. Increase the 
throttle setting, decrease the energy required for the fan or increase the 
altitude. 

• Fuel-Air Mucture is Greater Than StoiA: The fiiel-air mixture in the 
afterburner or ductbumer is greater than stoichiometric. Reduce the 
combustion temperatxire. 

• T5 is Less Than T4M: The afterburner entry temperature is less than 
the turbine exit temperature. Increase the afterburner combustion 
temperature. 

• T7 is Less Than Til; The ductbumer temperature is less than the fan 
exit temperature. Increase the ductbumer combustion temperature. 

• T41D is Negative: The turbine exit temperature is negative. The turbine 
inlet temperature is too low or too much energy is being removed by the 
tmbine. 
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APPENDIX A 


PROGRAM CREATE 


- THIS PROGRAM IS TO BE USED AS AN AID IN CREATING THE ACSYNT .ACS 

- FILE. DEDICATED USERS OF ACSTNT WILL WANT TO BYPASS THIS PROGRAM 

- AND EDIT THE '.ACS' FILE THEMSELVES. 

- CREATE WAS DEVELOPED BY LT JOHN PARKER, NAVAL POSTGRADUATE 

- SCHOOL, SPRING 1991 


LIST OF VARIABLES (NON-ACSYNT SPECIFIC) 


-ANS: 

- DVFLAG: 

-EXT: 

- FILE: 

-LV: 

- NAME: 

- NVFLAG: 

- STFLAG: 

- TITLE: 

- TOFLAG: 


MISC QUESTION/ANSWER 

FLAG TO USE THE DEFAULT VARIABLES (I.E. A NEW FILE IS 
CREATED) 

.ACS (THIS IS ADDED ON TO THE FILENAME FOR THE FILE 
(EXTENSION) 

THE FILENAME WITH THE EXTENSION 

A LOGICAL VARIABLE THAT DETERMINES THE EXISTENCE OF A 
FILE. IF TRUE THEN THE FILE EXISTS. 

THE FILENAME WITHOUT THE EXTENSION 

FLAG TURNING THE NAVY MODULE ON/OFF 

FLAG TURNING THE STABILITY >K)DULE ON/OFF 

THE PROJECT TITLE. ALSO USED AS A MISC 80 CHARACTER 

VARIABLE 

FLAG SETTING THE TAKE-OFF MODULE ON/OFF 


- FILES: UNIT 7 - THE CURRENT .ACS DATA FILE 

- UNIT 10 - THE BACK-UP OF THE ORIGINAL DATA FILE 


CHARACTER ANS*6, EXT*4, FILE*10, NAME*6, TITLE*80, TEMP*3, 
tATYPE»10 

LOGICAL LV, DVFLAG, STFLAG, TOFLAG, NVFLAG 
INTEGER GETLEN, AIDSGN, STATUS, LIBSSPAWN 

DIMENSION SNS(8), NSN(8), AIDSGN(20), NREAD(IO), NEXEC(IO), 
iNWRITE(lO), VUB(50), VLB(50), TX(50), BL(50), BU(50), ICON(50) 
REAL LOWER 
EXT-'.ACS' 

STFLAG-.FALSE. 

TOFLAG-.FALSE. 

DVFLAG-.FALSE. 

NVFLAG-.FALSE. 


- SET-UP THE DATA FILE 


5 STATUS - LIBSSPAWN('CLS') 

WRITE(6,10) 

10 FORMAT(// 

S7X,'IF YOU HAVE NOT USED THIS PROGRAM BEFORE TO CREATE AN'/ 
t7X,'ACSYNT DATA FILE, YOU SHOULD SELECT (2) IN THE MENU'/ 
47X,'BELOW.'//7X,'(1) READ A PREVIOUSLY CREATED FILE'/ 

47X,'(2) CREATE A NEW FILE'/ 








S7X,'(3) QUIT' //7X, 'SELECT 1, 2, OR 3: '$) 

READ(5,20) ANS 
20 FORMAT(Al) 

IF(ANS.EQ.'l') GOTO 50 
IF(ANS.EQ.'2') GOTO 100 
1F(ANS.EQ.'3') STOP 
GOTO 5 

C - OPEN A PREVIOUSLY CREATED FILE. IF THAT FILE DOES NOT EXIST, 

C - CHECK THE SPELLING AND TRY AGAIN. IF IT STILL DOES NOT EXIST, 

C - QUIT OR CREATE A NEW ONE 

50 WRITE(6,55) 

55 FORMAT(/7X,'ENTER THE NAME OF THE ACSYNT DATA FILE: ',$) 

READ (5, 60) NAME 
60 FORMAT(A6) 

FILE-NAME(1:GETLEN(NAME))//EXT 
INQUIRE(FILE-FILE,EXIST-LV) 

IF(LV.EQ..TRUE.) THEN ! THE FILE EXISTS 

OPEN(UNIT-7, FILE-FILE,BLANK-'NULL' ,STATUS-'OLD' , 

& ACCESS-'SEQUENTIAL',FORM-'FORMATTED') 

ELSE 

WRITE(6,65) 

65 FORMAT(/7X,'THAT FILE DOES NOT EXIST. CHECK YOUR SPELLING'/ 

& 7X,'AND TRY AGAIN. DO NOT ADD THE 3 LETTER FILE EXTENSION'/ 

& /7X,'ENTER THE FILENAME: ',$) 

READ (5, 60) NAME 

FILE-NAME(1:GETLEN(NAME))//EXT ! GET RID OF THE BLANKS 
INQUIRE(FILE-FILE,EXIST-LV) 

IF(LV.EQ..FALSE.) THEN 
70 WRITE(6,75) 

75 FORMAT(/7X,'THAT FILE DOES NOT EXIST. WOULD YOU LIKE TO:'/ 

& 7X,'(1) CREATE A NEW FILE'/7X,'(2) QUIT'// 

& 7X,'SELECT 1 OR 2: '$) 

READ(5,20) ANS 
ir(ANS.EQ.'l') GOTO 100 
IF(ANS.EQ.'2') STOP 
GOTO 70 
ELSE 

OPEN(UNIT-7,FILE-FILE,BLANK-'NULL',STATUS-'OLD', 

& ACCESS-'SEQUENTIAL',FORM-'FORMATTED') 

ENDIF 

ENDIF 

C - OPEN A TEMPORARY FILE AND COPY THE ACS FILE TO IT. THIS WILL 

C - PREVENT DATA OVERWRITE AS THE ACS FILE IS UPDATED WITH THE 

C - NEW DATA. IT ALSO SERVES AS A BACK-UP FILE IN CASE THE CURRENT 

C - SESSION ENDS PREMATURELY 

OPEN(UNIT-10, FILE-'TEMP.DAT',ACCESS-'SEQUENTIAL' ,FORM-'FORMATTED', 
4STATUS-'UNKNOWN') 

REWIiH) (7) 

REWIND(10) 

DO 97 T-1,1000 

READ(7,90,END-95) TITLE 
90 FORMAT(ABO) 

WRITE(ID,90) TITLE 
97 CONTINUE 
95 GOTO 200 

C - CREATE A NEW FILE. CHECK TO SEE IF THAT FILENAME IS ALREADY 

C - BEING USED. 

100 WRITE(6,102) 

102 FORMAT(/7X,'ENTER THE FILENAME THAT YOU WISH'/ 

47X,'TO USE (UP TO 6 CHARACTERS): ',?) 
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READ {5, 60) NAME 

FILE-NAME(1:GETLEN(NAME))//EXT * GET RID OF THE BLANKS 
INQUIRE(FILE-FILE,EXIST-LV) 

IF(LV.EQ..TRUE.) THEN 

PRINT*,' THAT FILENAME IS ALREADY IN USE' 

GOTO 100 
ELSE 

OPEN(UNIT-7, FILE-FILE,BLANK-'NULL',STATUS-'NEW', 

& ACCESS-'SEQUENTIAL',FORM-'FORMATTED') 

DVFLAG-.TRUE. 

ENDIF 


- THIS SECTION WILL ESTABLISH THE COPES DATA BLOCKS. IF THE FILE 

- WAS PREVIOUSLY CREATED THEN AN OPTION IS GIVEN TO BYPASS THIS 

- SECTION AND PROCEED TO THE ACSYNT CONTROL SECTION 


200 IF(DVFLAG.EQ..FALSE.) THEN 
STATUS - LIB$SPAWN('CLS') 

WRITE(6,205) 

205 FORMAT (// 

& 7X,'DO YOU WISH TO ALTER THE METHOD OF ANALYSIS?'/ 

« 7X,' (THIS WOULD MEAN CHANGING THE DESIGN OR SENSITIVITY'/ 

6 7X,'VARIABLES, OR A CHANGE IN THE CONSTRAINTS)'// 

& 7X,'{1) YES'/7X,'(2) NO'// 

& 7X, 'SELECT 1 OR 2: '$) 

READ(5,20) ANS 

- IF THE ANSWER IS NO, THEN MOVE THE FILE POINTER TO THE TOP 

- OF THE ACSYNT CONTROL SECTION (BYPASSING COPES DATA) 

IF(ANS.EQ.'2') THEN 
REWIND(7) 

DO 215 1-1,50 
READ(7,210) ANS 
210 FORMAT (A3) 

IF(ANS.EQ.'END') GOTO 1000 ! END IS DATA BLOCK V RELATED 

215 CONTINUE 

ENDIF 

IF(ANS.NE.'l') GOTO 200 
ENDIF 

220 STATUS - LIB$SPAWN('CLS') 

WRITE(6,230) 

230 FORMAT(/// 

fi7X,'** ANALYSIS METHOD **'// 

&7X,'(1) SIMPLE ANALYSIS. (NO VARIABLE OPTIMIZATION AND'/ 

S7X, ' NO CONSTRAINTS) .'/ 

&7X,'(2) OPTIMIZATION. (OPTIMIZE A VARIABLE GIVEN A SET'/ 

&7X, ' OF DESIGN VARIABLES)'/ 

&7X, ' (3) SENSITIVITY. (DETERMINE THE EFFECT OF A SET OF'/ 

&7X, ' VARIABLES ON THE BEHAVIOR OF ANOTHER VARIABLE)'// 

S7X,'SELECT 1, 2 OR 3: '$) 

READ(5,20) ANS 
IF(ANS.EQ.'l') GOTO 300 
IF(ANS.EQ.'2') GOTO 400 
IF(ANS.EQ.'3') GOTO 700 
GOTO 220 


- SIMPLE ANALYSIS 

- NCALC-1, NDV-0, NSV-0, N2VAR-0, NXAPRX-0, IPNPUT-2, lPDBG-0 

-DATA BLOCKS A, B AND V WILL BE CC»1PLETED 


300 WRITE(6,305) 
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SAFLAG-.TRUE. 

305 FORMAT(//7X,'ENTER A TITLE FOR THIS PROJECT (OP TO 80'/ 
&7X,'CHARACTERS): ',$) 

READ(5/310) TITLE 
310 FORMAT(A80) 

REWIND(7) 

WRITE(7,320) TITLE 
320 FORMAT('$ DATA BLOCK A'/A80) 

WRITE(7,330) 

330 FORMAT('S DATA BLOCK B'/'1,0,0,0,0,1,0') 

WRITE(7,340) 

340 FORMAT('$ DATA BLOCK V'/'END') 

GOTO 1000 


-OPTIMIZATION 

- NCALC-2, NSV-0, N2VAR-0, NXAPRX-0, IPNPUT-2, IPDBOG-0, ALL OF 

- DATA BLOCK C IS DEFAULTED, FDCH-.02, FDCHM-.OOl, CT-.04, 

- CTMIN-.001,CTLMIN—.01, THETA-1.0, DELFUN-.OOl, DABFUN-.OOl, 

- ALPHX-0.1, ABOEJl-0.1, NDVTOT-NDV, AMULT-1.0 

-DATA BLOCKS A-I AND V WILL BE COIPLETBD 


400 WRITE(6,305) 

READ(5,310) TITLE 
REWIND(7) 

WRITE(7,320) TITLE 

404 STATUS - LIBSSPAWN('CLS') 

WRITE(6,405) 

405 FORMAT(/7X,'ENTER THE GLOBAL NUMBER OF THE OBJECTIVE VARIABLE' 
4/7X,'(THE OBJECTIVE VARIABLE IS THE ONE THAT WILL BE'/ 

S7X,'OPTIMIZED BY ACSYNT): ',$) 

READ(5,410,ERR-404) lOBJ 
410 FORMAT(13) 

1F((10BJ.GT.999).OR.(lOBJ.LT.l)) GOTO 404 
420 WRITE(6,425) 

425 FORMAT(/7X,'DO YOU WISH TO MINIMIZE THE OBJECTIVE VARIABLE'/ 
47X,'OR MAXIMIZE IT?'//7X,'(1) MINIMIZE'/ 
fi7X,'(2) MAXIMIZE'//7X,'SELECT 1 OR 2: ',$) 

READ (5,20) ANS 

IF (ANS. EQ. ' 1' ) SGNOPT—1.0 

IF(ANS.EQ.'2') SGNOPT-1.0 

1F((ANS.NE.'1').AND.(ANS.NE.'2')) GOTO 420 
430 STATUS - LIB$SPAWN('CLS') 

WRITE(6,435) 

435 FORMAT(//7X,'ENTER THE TOTAL NUMBER OF DESIGN VARIABLES'/ 

S7X,'(THESE ARE THE VARIABLES THAT ACSYNT WILL MODIFY TO'/ 
fi7X,'OPTIMIZE THE OBJECTIVE): ',$) 

READ(5,410,ERR-430) NDV 

1F((NDV,GT.99).OR.(NDV.LT.l)) GOTO 430 

DO 500 1-1,NDV 


450 

WRITE(6,455) 1 


455 

FORMAT(//7X,'ENTER THE GLOBAL NUMBER FOR DESIGN'/ 


$ 

7X,'VARIABLE NUMBER',13,': ',$) 

READ(5,410,ERR-450) AIDSGN(I) 

IF( (AIDSGNd) .LT.l) .OR. (AIDSGN(I) .GT.999) ) GOTO 450 


460 

WRITE(6,465) 


465 

FORMAT(/7X,'ENTER THE UPPER BOUND ON THIS VARIABLE: 
READ(5,490,ERR-460) VUB{I) 

'r$) 

490 

FORMAT(FIO.2) 


491 

WRITE(6,492) 


492 

FORMAT(7X,'ENTER THE LOWER BOUND ON THIS VARIABLE: ' 

,$) 
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READ(5,490,ERR-491) VLB(I) 

TX(1)-0.5*(ABS{VUB(I)+VLB(1))) 

500 CONTINUE 

510 STATUS - LIB$SPAWN('CLS') 

WRITE(6,515) 

515 FORMAT(/7X,'ENTER THE TOTAL NUMBER OF VARIABLES THAT'/ 

&7X,'ARE CONSTRAINED: ',$) 

READ(5,410,ERR-510) NCONS 
DO 600 I-l,NCONS 

552 STATUS - LIB$SPAWN('CLS') 

WRITE(6,553) I 

553 FORMAT(//7X,'ENTER THE GLOBAL NUMBER FOR CONSTRAINT'/ 

& 7X,'VARIABLE',13,': ',$) 

READ(5,410,BRR-552) ICON<I) 

556 WRITE(6,557) 

557 FORMAT(/7X,'ENTER THE UPPER BOUND ON THIS CONSTRAINT: ',$) 
READ(5,560,ERR-556) BU(I) 

560 FORMAT(FIO.2) 

564 WRITE(6,565) 

565 FORMAT(/7X,'ENTER THE LOWER BOUND ON THIS CONSTRAINT: ',$) 
READ(5,560,ERR-564) BL(I) 

600 CONTINUE 

WRITE(7,610) NDV, NDV, lOBJ, SGNOPT 
610 FORMAT('SDATA BLOCK B'/'2,'13,',0,0,0,2,0'/'$DATA BLOCK C'/'l'/ 
i'SDATA BLOCK D'/'0.02,,0.04,0•001'//'$DATA BLOCK E'/ 
&i3,',',i3,',',f4.i/'Sdata block F') 

DO 630 1-1,NDV 

WRITE(7,620) VLB(l), VUB(I), TX(I) 

620 FORMAT(FIO.2,',',FIO.2,',',FIO.2) 

630 CONTINUE 

WRITE(7,640) 

640 FORMAT('$DATA BLOCK G') 

DO 650 1-1,NDV 

WRITE(7,645) I, AIDSGN(I) 

645 FORMAT(13,',',13,',') 

650 CONTINUE 

WRITE(7,655) NCONS 
655 FORMAT('$ DATA BLOCK H'/I3) 

IF(NCONS.NE.O) THEN !SKIF DATA BLOCK I IF NO CONSTRAINTS 

WRITE(7,660) 

660 FORMAT('$ DATA BLOCK I') 

DO 670 I-l,NCONS 

WRITE(7,665) ICON(I), BL(I), BU(I) 

665 FORMAT(13,',,'/FIO.2,', , ' ,FIO.2,' , ') 

670 CONTINUE 
ENDIF 

WRITE(7, 340) 

GOTO 1000 


- SENSITIVITY ANALYSIS 

- NCALC-3, NDV-0, N2VAR-0, NXAPRX-0, IPNPUT-1, lPDBG-0 

- DATA BLOCKS A, B, P, Q AND V COMPLETED 


700 REWIND(7) 

WRITE(6,305) 

READ(5,310) TITLE 
WRITE(7,320) TITLE 
710 STATUS - LIB$SPAWN('CLS') 

WRITE(6,715) 

715 FORMAT(//7X,'ENTER THE TOTAL NUMBER OF SENSITIVITY'/ 
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&7X,'OBJECTIVES (MAX OF EIGHT): ',$) 

READ(5,410,ERR-710) HSOBJ 
IF( (NSOBJ.lt. 1).OR.(NSOBJ.GT.8)) GOTO 710 
DO 730 I-l,NSOBJ 
720 STATUS - LIB$SPAVW ('CLS') 

WRITE(6, 725) I 

725 FORMAT(//7X,'ENTER THE GLOBAL NUMBER FOR SENSITIVITY'/ 

& 7X,'OBJECTIVE NUMBER ',11,': ',$) 

READ(5,410,ERR-760) NSN(I) 

IF((NSN(I).LT.l).OR.(NSN(l).GT.999)) GOTO 760 
730 CONTINUE 

734 STATUS - LIB$SPAWN('CLS') 

WRITE(6,735) 

735 FORMAT(//7X,'ENTER THE TOTAL NUMBER OF SENSITIVITY VARIABLES' 
&/7X,'(A MAXIMUM OF EIGHT): ',$) 

READ(5,410,ERR-734) NSV 

WRITE(7,740) NSV, NSOBJ, (NSN(I),I-l,NSOBJ) 

740 FORMAT('$ DATA BLOCK B'/'3,0,',13,',0,0,2,0'/'$ DATA BLOCK P'/ 
&I3,',0'/7(I3,','),I3) 

WRITE(7,741) 

741 FORMAT('$ DATA BLOCK Q') 

DO 790 I-l,NSV 

750 STATUS - L1B$SPAWN('CLS') 

WRITE(6,755) 1 

755 FORMAT(//7X,'ENTER THE GLOBAL NUMBER FOR SENSITIVITY'/ 

& 7X,'VARIABLE NUMBER ',11,': ',$) 

REAO(5,410,ERR-750) ISENS 
760 WRITE(6,765) 

765 FORMAT(/7X,'ENTER THE UPPER BOUND ON THIS VARIABLE: ',$) 
READ(5,490,ERR-760) UPPER 
770 WRITE(6,775) 

775 FORMAT(7X,'ENTER THE LOWER BOUND ON THIS VARIABLE: ',$) 
READ(5,490,ERR-770) LOWER 

- THIS NEXT PART WILL SCALE THE SENSITIVITY VARIABLE BETWEEN 

— LOWER AND UPPER WITH 7 VALUES TOTAL. THESE 7 VALUES WILL 

- BE USED FOR THE SENSITIVITY STUDY 

DIFF-ABS(UPPER-LOWER)/6.0 
SNS(1)-LOWER 
DO 780 J-2,7 

SNS (J) -LOWER-«-DIFF 
LOWER-LOWER+DIFF 
780 CONTINUE 
NSENS-7 

WRITE(7,785) ISENS, NSENS, (SNS(K),K-1,7) 

785 FORMAT(13,',',13/6(F10.2,','),F10.2) 

790 CONTINUE 

WRITE(7,340) 


- ACSYNT CONTROL SECTION 

- LINES 1, 2, 3, 4, 5 AND 6 COMPLETED 


1000 STATUS - LIB$SPAWN('CLS') 

WRITE(6,1010) 

1010 FORMAT(// 

&7X,'ENTER THE AIRCRAFT TYPE THAT MOST CLOSELY RESEMBLES YOUR' 
<;/7X,'DESIGN.'//7X, ' (1) FIGHTER'/7X, ' (2) TRANSPORT'/ 

&7X,'(3) BOMBER'//7X,'SELECT 1, 2 OR 3: ',$) 

READ(5,20) ANS 

IF((ANS.NE.'l').AND.(ANS.NE.'2').AND.(ANS.NE.'3')) GOTO 1000 
IF(ANS.EQ.'1') THEN 
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WRITE(7,1020) 

1020 FORMATFIGHTER') 

ATYPE-'FIGHTER' ! ATYPE IS PASSED TO WEIGHTS MODULE 
ENDIF 

IF(ANS.EQ.'2') THEN 
WRITE(7,1030) 

1030 FORMAT('TRANSPORT') 

ATYPE-'TRANSPORT' 

ENDIF 

IF(ANS.EQ.'3') THEN 
WRITE(7,1040) 

1040 FORMAT (' BOMBER') 

ATYPE-'BOMBER' 

ENDIF 

C - READ THE OLD VALUES IF DVFLAG.NE..TRUE., THEN RESET THE ACS FILE 

C - POINTER TO THE TOP OF THE ACSYNT CONTROL SECTION 

IF(0VFLA6.EQ..TRUE.) THEN !SET CONTROL DEFAULTS 

MREAD-S 
MEXEC-3 
MWRITE-S 
IOBJ-570 

JOBJ-585 ! WILL ALWAYS CONVERGE 

IPSUM-1 ! ALWAYS PRINT SUMMARY 

KGLOBP-0 
INIT-0 
IPDBG-2 
IGPLT-1 
IRDDTR-7 
IPDTR-0 
TOL-.OOOl 
TSLOPE-.75 
NGMAX-50000.0 
NREAD(1)-1 
NREAD(2)-2 
NREAD(3)-3 
NREAD(4)-4 
NREAD(5)-6 
NEXEC(1)-1 
NBXEC(2)-2 
NEXEC(3)-6 
NWRITE(1)-1 
NWRITE(2)-2 
NNRITE(3)-3 
NWRITE(4)-4 
NWRITB(5)-6 
GOTO 2000 
ENDIF 
REWIND(10) 

C - GET THE OLD DATA FROM THE TEMP FILE 

1045 READ(10,210) ANS ! FIND TOP OF ACSYNT CONTROL SECTION 

IF((ANS.NE.'FIG').AND. (ANS.NE.'TRA').AND. (ANS.NE,'BOM')) 

&GOTO 1045 

READ(10,1060) MREAD, MEXEC, MWRITE, lOBJ, JOBJ, IPSUM, KGLOBP, 
&IN1T, IPDBG, IGPLT, IRDDTR, IPDTR 
1060 FORMAT(1215) 

READ (10, 1070) WOIAX 
1070 FORMAT(20X,F10.2) 

READ(10,1080) (NREAD(I),I-l,MREAO) 

1080 FORMAT(1615) 

READ(10,1080) (NEXEC(I),I-1,MEXEC) 
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READ(10,1080) (NWRITE(I),I-1,MWRITE) 

C - GET THE NEW ACSYNT CONTROL DATA OR KEEP THE OLD 


c 

— 

(1) 

GEOMETRY 

c 

— 

(2) 

TRAJECTORY 

c 

— 

(3) 

AERODYNAMICS 

c 

— 

(4) 

PROPULSION 

c 

— 

(5) 

STABILITY & CONTROL (NOT AVAILABLE YET) 

c 

— 

(6) 

WEIGHTS 

c 

— 

(10) 

NAVY 

c 

— 

(11) 

SUMMARY (ALWAYS SELECTED) 

c 

-— 

(14) 

TAKEOFF (NOT AVAILABLE YET) 

c 

— 

MODULES 1, 2, 3, 4 & 6 WILL BE REQUIRED 


2000 DO 2020 1=1,10 IFIND OUT IF MODULES 5, 14 OR 10 ARE CALLED 
IF(NREAD(I).EQ.5) STFLAG-.TRUE. 

IF(NREAD(I).EQ.14) TOFLAG-.TRUE. 

IF(NREAD(I).EQ.10) NVFLAG-.TRUE. 

2020 CONTINUE 

2030 STATUS - LIB$SPAWN('CLS') 

WRITE(6,2040) 

2040 FORMAT(/ 

&7X,'THE FOLLOWING MODULES ARE SELECTED FOR ANALYSIS:'//) 


WRITE(6,2050) 

2050 FORMAT (7X, ' (1) GEOMETRY.YES') 

WRITE(6,2060) 

2060 FORMAT (7X,' (2) TRAJECTORY.YES') 

WRITE(6,2070) 

2070 FORMAT (7X,' (3) AERODYNAMICS.YES') 

WRITE(6,2080) 

2080 FORMAT (7X, ' (4) PROPULSION.YES') 


C - STABILITY AND TAKEOFF COMMENTED OUT UNTIL READY 

C IF(STFLAG.EQ..TRUE.) THEN 

C WRITE(6,2090) 

C2090 FORMAT(7X,'(5) STABILITY & CONTROL....YES') 

C ELSE 

C WRITE(6,2100) 

C2100 FORMAT(7X,'(5) STABILITY & CONTROL....NO') 


C ENDIF 

WRITE(6,2110) 

2110 FORMAT (7X, ' (6) WEIGHTS.YES') 

IF(NVFLAG.EQ..TRUE.) THEN 
WRITE(6,2115) 

2115 FORMAT (7X, ' (10) NAVY.YES') 

ELSE 

WRITE(6,2116) 

2116 FORMAT (7X, ' (10) NAVY.NO') 

ENDIF 

C IF(TOFLAG.EQ..TRUE.) THEN 

C WRITE(6,2120) 

C2120 FORMAT(7X, ' (14) TAKE-OFF.YES') 

C ELSE 

C WRITE(6,2130) 

C2130 FORMAT(7X, ' (14) TAKE-OFF.:.NO') 

C ENDIF 

WRITE(6,2140) 


2140 FORMAT(//7X,'ENTER THE MODULE NUMBER TO CHANGE THE STATUS OR' 
&/7X,'ENTER 0 TO CONTINUE; ',$) 

READ(5,2145) ANS 
2145 FORMAT(A2) 

C IF(ANS.EQ.'5') THEN 

C IF(STFLAG.EQ..TRUE.) THEN 
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STFIAG-.FALSE. 

GOTO 2030 
ELSE 

STFLAG-.TRUE. 

GOTO 2030 
ENDZF 
ENDIF 

IF(ANS.EQ.'14') THEN 

IF(TOFLAG.EQ..TRUE.) THEN 
TOFLAG*.FALSE. 

GOTO 2030 
ELSE 

TOFLAG-.TRUE. 

GOTO 2030 
ENDIF 
ENDIF 

IF(ANS.EQ.'10') THEN 

IF(NVTLAG.EQ..TRUE.) THEN 
NVFLAG-.FALSE. 

GOTO 2030 
ELSE 

NVFLAG-.TRUE. 

GOTO 2030 
ENDIF 
ENDIF 

IF(ANS.NE.'O') GOTO 2030 

C - RESET NREAD ARRAY 

DO 2150 1-1,10 
NREAD(I)-0 
2150 CONTINUE 

NREAD(1)-1 
NREAD<2)-2 
NREAD(3)-3 
NR£AD(4)-4 
NREAD(5)-6 
1-6 

IF(STFLAG.EQ..TRUE.) THEN 
NREAD (I)-5 
I-I+l 
ENDIF 

IF(NVFLAG.EQ..TRUE.) THEN 
NREAD(I)-10 
I-I+l 
ENDIF 

IF(TOFLAG.EQ..TRUE.) THEN 
NREAD(I)-14 
ENDIF 
MREAD-0 
DO 2160 1-1,10 

IF(NREAO(I).NE.O) MRBAD-MREAD+1 
2160 CONTINUE 

MKRITE-MREAD 

C - RESET NEXEC ARRAY 

DO 2165 1-1,10 
NEXEC(I)-0 
2165 CONTINUE 

NEXEC(1)-1 
NEXEC (2)-2 
NEXEC(3)-6 
1-4 
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IF(STFLAG,EQ..TRUE.) THEN 
NEXEC(I)—5 
I-I+l 
END IF 

IF(NVFLAG.EQ..TRUE.) THEN 
NEXEC(I)—10 
I-I+l 
ENDIF 

IF(TOFIAG.EQ..TRUE.) THEN 
NEXEC<I)—14 
ENDIF 
MEXEC-0 
DO 2167 1-1,10 

IF(NEXEC(I) .NE.O) MEXEC^4EXEC-t-l 
2167 CONTINUE 

WRITE(7,1060) MREAD, MEXEC, MWRITE, lOBJ, JOBJ, IPSUM, KGLOBP, 
&INIT, IPDBG, IGPLT, IRDDTR, IPDTR 
2170 STATUS - LIBSSPAWN('CLS') 

WRITE(6,2180) WGMAX 
2180 FORMAT(// 

&7X,'THE MAXIMUM ALLOWABLE TAKE-OFF GROSS WEIGHT IS SET'/ 
fi7X,'AT ',F10.2,' LBS.'// 

&' (1) CHANGE WEIGHT'/ 

fi' (2) NO CHANGE'//7X,'SELECT 1 OR 2: ',$) 

READ(5,20) ANS 

IF((ANS.NE.'l').AND.(ANS.NE.'2')) GOTO 2170 
IF<ANS.EQ.'l') THEN 


2185 

WRITE(6,2190) 


2190 

FORMAT(/7X,'ENTER THE MAXIMUM TAKE-OFF GROSS WEIGHT 

(THIS'/ 

« 

7X,'WEIGHT IS THE MAXIMUM THAT ACSYNT WILL CONSIDER 

IF'/ 

£ 

7X,'CONVERGENCE IS NOT POSSIBLE: ',$) 
READ(5,2200,ERR-2185) WOIAX 


2200 

FORMAT(FIO.2) 

IF( (WOlAX.LT.l) .OR. (W(a4AX.GT.1000000.0)) THEN 

WRITE(6,2205) 


2205 

FORMAT(/7X,'* CAUTION; THIS VALUE IS OUTSIDE NORMAL 
ENDIF 

GOTO 2170 

LIMITS') 


ENDIF 

WRITE (7,1070) WaiAX 

WRITE(7,1080) (NREAD(I),I-1,MREAD) 

WRITE(7,1080) (NEXEC(I),I-1,MEXEC) 

WRITE <7,1080) (NREADd) ,I-1,MREAD) ! OUTPUT IS SAME AS INPUT 

C- 

CALL GEOMETRY(DVFLAG) 

C- 

CALL TRAJ(DVFLAG) 

C- 

CALL AERO(DVFLAG,NVFLAG) 

C- 

CALL PROP(DVFLAG) 

C-- 

CALL WEIGHTS (DVFLAG, ATYPE) 


IF(STFLAG.EQ..TRUE.) THEN 
CALL STABILITY(DVFLAG) 
ENDIF 


IF(NVFLAG.EQ..TRUE.) THEN 
CALL NAVY 
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ENDIF 


IF(TOFLAG.EQ..TRUE.) THEN 
CALL TAKEOFF(DVFLAG) 

ENDIF 

8400 CLOSE(7) 

CLOSE(10) 

STOP 

END 

c <><><><><><><><><><><><><><><><><><><><><><x><><><><><x><><><> 

INTEGER FUNCTION GETLEN(STRING) 

- THIS FUNCTION WILL COUNT THE NUMBER OF RIGHT BLANKS IN "STRING" 

<XXXXXXXXXXXXX>^XXXXXXXXXXXXXXXXX> 
CHARACTER"6 STRING 
DO 10 1-6,1,-1 

IF(STRING(I:I).NE.' ') THEN 
GETLEN-I 
RETURN 
ENDIF 

10 CONTINUE 
RETURN 
END 


SUBROUTINE NAVY 

C - ALL CALCULATIONS SET AT DEFAULTS: TROPICAL DAY 

WRITE(7,10) 

10 FORMAT(' $BOAT SEND') 

RETURN 

END 


SUBROUTINE GEOMETRY(DVFLAG) 

- GEOMETRY SECTION 

CHARACTER WINO"3, QWING"3, STRAKE"3, HTA1L*3, VTAIL"3, ANS"6, 
fiCAKARD"3, WPOD"3, FPOD*3, FUS*3, CREW*3, FUEL"3, T1TLE"80 
REAL LFLAPC, LENGTH, LRADAR 

INTEGER STATUS, OUTCOD, SYMCOD, LIB$SPAWN, PODNUM, WPODFL, FPODFL 
LOGICAL DVFLAG, SIZIT, TAND 

C - THE VARIABLES BELOW USED ON GEOMETRY SELECTION MENU 

IF(DVFLAG.EQ..TRUE.) THEN 

WING-'YES' ! WING -OR- QWING REQUIRED 

QWING-'NO' 

STRAKE-'NO' 

HTA1L-'NO' 

VTAIL-'NO' 

CANARD-'NO' 

WPOD-'YES' ! WPOD -OR- FPOD REQUIRED 
FPOD-'NO' 

FUS-'YES' 

CREW-'NO' 

FUEL-'NO' 

ENDIF 

IF(DVFLAG.EQ..TRUE.) GOTO 50 ! OPTION TO BYPASS GEOMETRY 

10 STATUS - L1B$SPAWN('CLS') 

WRITE(6,20) 

20 FORMAT(/// 

S7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE GEC^IETRY MODULE ?'// 
47X,'(1) YES'/7X,'(2) NO'//7X,'SELECT 1 OR 2: ',$) 
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c 


c 

c 


c 

c 

c 


21 


25 

26 


30 

31 


40 


42 


READ(5,21,ERR-10) NDM 
FORMAT(II) 

IF((NOM.NE.l).AND.(iroM.NE.2)) GOTO 10 
IF(NUM.EQ.l) GOTO 40 

TRANSFER GEOMETRY DATA FROM (10) TO (7) 
REWIND(10) 

READ(10,26) ANS 
FORMAT(A6) 

ir(ANS.NE.'*** GE') GOTO 25 
WRITE(7,201) 

READ(10,31) TITLE 
FORMAT(A80) 

WRITE(7,31) TITLE 

IF(TITLE(1:6).NE.'$$$$$$') GOTO 30 
RETURN 

DETERMINE OLD GEOMETRY MENU 
REWIND (10) 

MAKE INITIAL SETTINGS 
WING-'NO' 

OWING-'NO' 

STRAKE-'NO' 

HTAIL-'NO' 

VTAIL-'NO' 


CANARD-'NO' 


WPOD-'NO' 

FPOD-'NO' 
FUS-'YES' 

CREW-'NO' 

FUEL-'NO' 

READ(10,26,END-50) 
IF(ANS.EQ.'$$$$$$') 
IF(ANS.EQ.' $WING') 
IF(ANS.EQ.' SQWIN') 
ir(ANS.EQ.' $STRA') 
IF(ANS.EQ.' $HTAI') 
1F(ANS.EQ.' $VTAI') 
IF(ANS.EQ.' SCANA') 
IF(ANS.EQ.' $WPOD') 
IF(ANS.EQ.' SFPOD') 
IF(ANS.EQ.' $FUS ') 
IF(ANS.EQ.' SCREW') 
IF(aWS.EQ.' SFUEL') 
GOTO 42 


ANS 

GOTO 50 
WING-'YES' 
OWING-'YES' 
STRAKE-' YES' 
HTAIL-'YES' 
VTAIL-'YES' 
CANARD-'YES' 
WPOD-'YES' 
FPOD-'YES' 
FUS-'YES' 
CREW-'YES' 
FUEL-'YES' 


- GEOMETRY SELECTION MENU 


50 STATUS - LIB$SPAWN('CLS') 

60 WRITE (6,61) WING, OWING, STRAKE, HTAIL, VTAIL, CKSMH), WPOD, 


iFPOD, FUS, CREW, FUEL 
61 FORMAT(/ 

&7X,'** GECX4ETRY SELECTION MENU **'// 

47X, ' (1) SYMMETRIC WING...' , A3/ 

fi7X,'(2) OBLIOUE WING. ',A3/ 

fi7X, ' (3) LE OR TE STRAKES. ',A3/ 

i7X,'(4) HORIZONTAL TAIL. ',A3/ 

fi7X,'(5) VERTICAL TAIL. ',A3/ 

&7X,'(6) CANARD. ',A3/ 

S7X, ' (7) WING MOUNTED ENGINE PODS. ',A3/ 

&7X, ' (8) FUSELAGE MOUNTED ENGINE PODS. ',A3/ 

47X,'(9) FUSELAGE (REQUIRED). ',A3/ 
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S7X,'(10) CREW COCKPIT. 

&7X, Mil) FUSELAGE FUEL BAYS. 
i7X,'SELECT AN ITEM TO CHANGE 
READ(5,65,BRR-50) NUM 

65 FORMAT(12) 

IF(NUM.EQ.O) GOTO 200 
GOTO (80, 90, 100, 110, 120, 
GOTO 50 

80 IF(MING.EQ.'YES') THEN 
WING-'NO' 

OWING-'YES' 

ELSE 

WING-'YES' 

OWING-'NO' 

ENDIF 
GOTO 50 

90 IF(OWING.EO.'YES') THEN 
OWING-'NO' 

WING-'YES' 

ELSE 

OWING-'YES' 

WING-'NO' 

ENDIF 
GOTO 50 

100 if(strakb.eo.'tes') then 

STRAKE-'NO' 


.',A3/ 

.',A3// 

OR 0 TO CONTINUE: ', 


130, 140, 150, 160, 


$) 


170, 


ELSE 

STRAKE-'YES' 

ENDIF 
GOTO 50 

110 if(htail.eo.'xes') then 

HTAIL-'NO' 

ELSE 

HTAIL-'YES' 

ENDIF 
GOTO 50 

120 IF(VTAIL.EO.''3fES') THEN 
VTAIL-'NO' 


ELSE 

VTAIL-'YBS' 

ENDIF 
GOTO 50 

130 IF(CANARD.EQ.'YES') THEN 
CANARD-'NO' 

ELSE 

CANARD-'YES' 

ENDIF 
GOTO 50 

140 IF(MPOD.EQ-'YES') THEN 
MPOD-'NO' 

FPOD-'YES' 

ELSE 

WPOD-'YES' 

FPOD-'NO' 

ENDIF 
GOTO 50 

150 IF(FPOD.EQ.'YES') THEN 
FPOD-'NO' 

WPOD-'YES' 

ELSE 


180), 


NUM 
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FPOD-'YES' 

WPOD-'NO' 

BNDIF 
GOTO 50 

160 IF(FUS.EQ.'YES') THEN 
FUS-'YES' 

ELSE 

FOS-'YES' 

ENDZF 
GOTO 50 

170 IF(CREW.EQ.'YES') THEN 
CREW-'NO' 

ELSE 

CREW-'YES' 

ENDIF 
GOTO 50 

180 IF(FOTL.EQ.'YES') THEN 
FUEL-'NO' 

ELSE 

FUEL-'YES' 

ENDIF 
GOTO 50 

200 WRITE(7,201) !WRITE THE GEOMETRY HEADER TO UNIT 7 

201 FORMAT('*** GECftlETRY DATA ***') 

C - THE SWING AND SOWING DEFAULTS ARE QUITE SIMILAR SO ONLY THE SWING 

C - DEFAULTS WILL BE SET, SINCE THESE ALSO COVER THE SOWING VALUES 

IF(DVFLAG. EQ..TRUE.) THEN 

CALL WINGDV(AR,AREA,DIKED,FDENWG,LFLAPC,SWEEP,SWFACT,TAPER, 

& TCROOT,TCTIP,TFLAPC,WFFRAC,XWING,ZROOT,KSWEEP,OUTCOD) 

GOTO 2400 
ENDIF 

C - get old values. CHECK TO SEE IF THE OLD VALUES ACTUALLY EXIST 

IF(WING.EQ.'YES') THEN ! GET SWING VALUES 
REWIND(10) 

220 READ(10,26) ANS 

1F(ANS.EQ.'SS$$$$') THEN !OLD SWING NOT FOUND. SET DEFAULTS 
CALL WINGDV(AR,AREA,DIKED,FDENWG,LFLAPC,SWEEP,SWFACT,TAPER, 

& TCROOT,TCTIP,TFLAPC,WFFRAC,XWING,ZROOT,KSWEEP,OUTCOD) 

GOTO 2400 
ENDIF 

IF(ANS.NE.' SWING') GOTO 220 

READ(10,2340) AR, AREA, DIKED, FDENWG, LFLAPC,SWEEP, SWFACT, 

& TAPER, TCROOT, TCTIP, TFLAPC, WFFRAC, XWING, ZROOT, KSWEEP, 

& OUTCOD 

2340 FORMAT(8X,F5.2,12X,F7.2,9X,F5.2/12X,F6.2,9X,F4.2,lOX,F6.2 

& /12X,F4.2,10X,F4.2,12X,F4.2/11X,F4.2,12X,F4.2,11X,F4.2 

& /11X,F4.2,11X,F5.2,11X,I1/12X,I1) 

ELSE ! GET SQWING VALUES 
REWIND(10) 

2350 READ(10,26) ANS 

IF(ANS.EQ.'SSSSS$') THEN ! OLD SQWING NOT FOUND. SET DEFAULTS 
CALL WINGDV(AR,AREA,DIKED,FDENWG,LFLAPC, SWEEP,SWFACT,TAPER, 

& TCROOT,TCTIP,TFLAPC,WFFRAC,XWING,ZROOT,KSWEEP,OUTCOD) 

GOTO 2400 
ENDIF 

IF(ANS.NE.' SQWIN') GOTO 2350 

READ(10,2360) AR, AREA, DIKED, LFLAPC, SWFACT, TAPER, TCROOT, 

& TCTIP, TFLAPC, XWING, ZROOT, WFFRAC, FDENWG, OUTCOD 

2360 FOBMAT(8X,F5.2,12X,F7.2,9X,F5.2/12X,F4.2,11X,F4.2,10X,F4.2/ 

& 12X,F4.2,10X,F4.2,12X,F4.2/11X,F4.2,11X,F5.2,11X,F4.2/ 
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& 12X,F6.2,9X,XI) 

ENDIF 

2400 IF(WING.EQ.'YES') THEN ! SWING GEOMETRY CHANGE MENU 


- SET OP SWING NAMELIST 


STATUS - LIB$SPAWN('CLS') 

WRITE(6,2410) AR, AREA, DIKED, FDENWG, LFLAPC, SWEEP, SWFACT, 
TAPER, TCROOT, TCTIP, TFLAPC, WFFRAC, XWING, 2ROOT 
FORMAT(/ 

7X,'** SYMMETRIC WING GEOMETRY **'// 

7X,'(1) ASPECT RATIO.',F5.2/ 

7X,'(2) AREA (SQ FT>.',F7,2/ 

7X,'(3) DIHEDRAL (DEG).',F5.2/ 

7X,'(4) FUEL DENSITY (LB/FT3).',F6.2/ 

7X,'(5) L.E. FLAP WIDTH (%CHORD).',F4.2/ 

7X,'(6) L.E. SWEEP (DEG).',F6.2/ 

7X, ' (7) WETTED AREA MULTIPLIER.',F4.2/ 

7X,'(8) TAPER RATIO.',F4.2/ 

7X,'(9) T/C RATIO, WING ROOT.',F4.2/ 


& 

7X,' 

** s 

& 

7X,' 

(1) 

& 

7X,' 

(2) 

& 

7X,' 

(3) 

& 

7X,' 

(4) 

& 

7X,' 

(5) 

& 

7X,' 

(6) 

& 

7X,' 

(7) 

& 

7X,' 

(8) 

& 

7X,' 

(9) 

& 

7X,' 

(10) 

& 

7X,' 

(11) 

& 

7X,' 

(12) 

& 

7X,' 


& 

7X,' 

(13) 

& 

7X,' 

(14) 

& 

7X,' 


£ 

7X,' 

SELE 


WILL BE FILLED WITH FUEL.',F4.2/ 


7X,' (l.O-TOP, 0.0-^ID-MOUNT, -1.O-BOTTOM)'// 

7X,'SELECT THE VALUE TO CHANGE OR 0 TO CONTINUE; ',$) 

READ(5,2411,ERR-2405) NUM 
FORMAT(12) 

IF(NUM.EQ.O) GOTO 2580 

GOTO (2425, 2440, 2450, 2465, 2480, 2495, 2500, 2510, 2520, 
2530, 2540, 2550, 2560, 2570) ,NDM 
GOTO 2405 
WRITE(6,2430) 

FORMAT(/7X,'ENTER THE ASPECT RATIO; ',$) 

R£AD(5,2460,ERR-2425) AR 

IF((AR.LE.0.0).OR.(AR.GT.12.0)) GOTO 2425 

GOTO 2405 

WRITE(6,2445) 

FORMAT(/7X,'ENTER THE WING AREA (SQ FT); ',$) 
READ(5,2446,ERR«2440) AREA 
FORMAT(F7.2) 

IF(AREA.LE.O) GOTO 2440 
GOTO 2405 
WRITE(6,2455) 

FORMAT(/7X,'ENTER THE WING DIHEDRAL (DEG); ',$) 
READ(5,2460,ERR-2450) DIKED 
FORMAT(F5.2) 

IF( (DIHED.lt. -20.0).OR.(DIHED.GT.20.0)) GOTO 2450 
GOTO 2405 
WRITE(6, 2470) 

FORMAT(/7X,'ENTER THE FUEL DENSITY (LB/FT3): ',$) 
READ(5,2475,ERR-2465) FDENWG 
FORMAT(F6.2) 

IF((FDENWG.LE.0.0)) GOTO 2465 
GOTO 2405 
WRITE(6,2485) 

FORMAT(/7X,'ENTER THE LEADING EDGE FLAP WIDTH'/ 

7X,'IN PERCENT OF TOTAL CHORD; ',$) 
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READ(5,2490,ERR-2480) LFLAPC 
2490 FORMAT(r4.2) 

IF( (LFLAFC.lt. 0.0).OR.(LFLAPC.GT.0,5)) GOTO 2480 
GOTO 2405 

2495 WRITE(6,2496) 

2496 FORMAT(/7X,'ENTER THE LE WING SWEEP (DEG): ',$) 
READ(5,2475,ERR-2495) SWEEP 

IF((SWEEP.LT,-30.0).OR,(SWEEP.GT.60.0)) GOTO 2495 
GOTO 2405 

2500 WRITE(6,2505) 

2505 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 

READ(5,2490,ERR-2500) SWFACT 

IF((SWFACT.LE.0,0).OR,(SWFACT.GT.2.0)) GOTO 2500 
GOTO 2405 

2510 WRITE(6,2515) 

2515 FORMAT(/7X,'ENTER THE TAPER RATIO: ',$) 

READ(5,2490,ERR-2510) TAPER 

IF((TAPER.LT.0.0).OR.(TAPER.GT.1.0)) GOTO 2510 
GOTO 2405 

2520 WRITE(6,2525) 

2525 FORMAT(/7X,'ENTER THE THICKLESS TO CHORD RATIO'/ 

& 7X,'AT THE WING ROOT: ',$) 

READ(5,2490,ERR-2520) TCROOT 

ir((TCROOT. lt.0.02).OR.(TCROOT.GT.0.18)) GOTO 2520 
GOTO 2405 

2530 WRITE(6,2535) 

2535 FORMAT(/7X,'ENTER THE THICKNESS TO CHORD RATIO'/ 

& 7X,'AT THE WING TIP: ',$) 

READ(5,2490,ERR-2530) TCTIP 

IF( (TCTIP.lt. 0.02).OR.(TCTIP.GT.0.18)) GOTO 2530 
GOTO 2405 

2540 WRITE(6,2545) 

2545 FORMAT(/7X,'ENTER THE TE FLAP WIDTH AS'/ 

& 7X,'PERCENT OF TOTAL WING CHORD: ',$) 

READ(5,2490,ERR»2540) TFLAPC 

IF((TFLAPC.LT.0.0).OR.(TFLAPC.GT.0.5)) GOTO 2540 
GOTO 2405 

2550 WRITE(6,2555) 

2555 FORMAT(/7X,'ENTER THE AMOUNT OF WING VOLUME THAT WILL'/ 

& 7X,'BE FILLED WITH FUEL, AS PERCENT OF WING VOLUME: ',$) 

READ(5,2490,ERR-2550) WFFRAC 

IF((WFFRAC.GT.1.0).OR. (WFFRAC.lt. 0.0)) GOTO 2550 
GOTO 2405 

2560 WRITE(6,2565) 

2565 FORMAT(/7X,'ENTER THE POSITION OF THE WING QUARTER CHORD'/ 

& 7X,'AS A FRACTION OF BODY LENGTH: ',$) 

READ(5,2490,ERR-2560) XWING 

IF((XWING.GT.1.0).OR.(XWING.lt.0.0)) GOTO 2560 
GOTO 2405 

2570 WRITE(6,2575) 

2575 FORMAT(/7X,'ENTER THE ELEVATION OF THE WING ON THE FUSELAGE'/ 
& 7X,'(1.0-TOP, 0.0-MID-MOUNT, -1.O-BOTTOM): ',$) 

READ(5,2460,ERR-2570) ZROOT 

IF((ZROOT.GT.1.0).OR.(ZROOT.lt.-1.0)) GOTO 2570 
GOTO 2405 

2580 WRITE(7,2600) AR, AREA, DIHED, FDENWG, LFLAPC,SWEEP, SWFACT, 

& TAPER, TCROOT, TCTIP, TFLAPC, WFFRAC, XWING, ZROOT, KSWEEP, 

& OUTCOD 

2600 FORMAT(' SWING'/ 

6 5X,'AR-',F5.2,',',6X,'AREA-',r7.2,',',2X 'DIHED-',F5.2, 
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, ' OUTCOP*' , II, ' , ■ /3*, ' 5>E.HP- ) 

! $QHXNG GECftlETRY CHANGE MENU 


- SET UP SQNING NAMELIST 


2610 STATUS - LIBSSPAWN('CLS') 

WRITE(6,2615) AR, AREA, DIKED, LFLAPC, SWFACT, TAPER, TCROOT, 
& TCTIP, TFLAPC, XWING, ZROOT, WFFRAC, FDENWG 
2615 FORMAT(/ 

£ 7X,'** OBLIQUE WING GEC»1ETRY **'// 

fi 7X,'’(1) ASPECT RATIO.',F5.2/ 

£ 7X,'(2) AREA (SQFT).',F7.2/ 

£ 7X,M3) dihedral (DEG).',F5.2/ 

£ 7X,'(4) LE FLAP WIDTH (FRACTION TOTAL CHORD)_',F4.2/ 

£ 7X,M5) wetted area multiplier.',F4.2/ 

£ 7X,'(6) taper ratio.',^4.2/ 

£ 7X,'(7) T/C ratio, WING ROOT. ',FA.2/ 

£ 7X, M8) T/C ratio, wing TIP.',F4.2/ 

£ 7X,'(9) TE flap WIDTH (FRACTION TOTAL CHORD)_',F4.2/ 

£ 7X,'(10) POSITION OF WING 1/4 CHORD, AS A '/ 

£ 7X,' FRACTION OF TOTAL FUSELAGE LENGTH.',F4.2/ 

£ 7X,'(11) ELEVATION OF WING ON THE FUSELAGE.',F5.2/ 

£ 7X,' (l.O-TOP, 0.O-MID-MOUNT, -1.O-BOTTOM)'/ 

£ 7X,' (12) FRACTION OF WING VOLUME THAT WILL'/ 

£ 7X, ' BE FILLED WITH FUEL.',F4.2/ 

£ 7X,'(13) FUEL DENSITY (LB/FT3).',F6.2// 

£ 7X,'SELECT THE VALUE TO CHANGE OR 0 TO CONTINUE; ',$) 

READ(5,2411,ERR*2610) NUM 
IF(NUM.EQ.O) GOTO 2760 

GOTO (2629, 2635, 2645, 2655, 2665, 2675, 2685, 2695, 2705, 

£ 2715, 2725, 2735, 2745) ,NUM 

GOTO 2610 

2629 WRITE(6, 2630) 

2630 FORMAT(/7X,'ENTER THE ASPECT RATIO; ',$) 

READ(5,2460,ERR-2629) AR 

IF((AR.LE.0.0).OR.(AR.GT.12.0)) GOTO 2629 
GOTO 2610 

2635 WRITE(6, 2640) 

2640 FORMAT(/7X,'ENTER THE WING AREA (SQ FT); ',$) 
REAO(5,2446,ERR-2635) AREA 
IF(AREA.LE.0.0) GOTO 2635 
GOTO 2610 

2645 WRITE(6, 2650) 

2650 FORMAT(/7X,'ENTER THE WING DIHEDRAL (DEG); ',$) 
READ(5,2460,ERR-2645) DIKED 

IF((DIKED.LT.-20.0).OR.(DIHED.GT.20.0)) GOTO 2645 
GOTO 2610 

2655 WRITE(6,2660) 

2660 FORMAT(/7X,'ENTER THE LE FLAP WIDTH AS A'/ 

£ ' FRACTION OF THE TOTAL CHORD; ',$) 

READ(5,2490,ERR-2655) LFLAPC 

IF((LFLAPC.LT.0.0).OR.(LFLAPC.GT.0.5)) GOTO 2655 
GOTO 2610 

2665 WRITE(6,2670) 

2670 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 
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READ(5,2490,ERR-2665) SWFACT 

ir((SWFACT. lt.0.0).OR.(SWTACT.GT.2.0)) GOTO 2665 
GOTO 2610 

2675 WRITE(6,2680) 

2680 FORMAT(/7X,'ENTER THE TAPER RATIO: ',$) 

REAI)(5,2490,ERR-2675) TAPER 

IF((TAPER.LT.0.0).OR.(TAPER.GT.1.0)) GOTO 2675 
GOTO 2610 

2685 WRITE(6,2690) 

2690 FORMAT(/7X,'ENTER THE T/C RATIO AT THE ROOT: ',$) 

READ(5,2490,ERR-2685) TCROOT 

IF((TCROOT.LE.0.02).OR.(TCROOT.GT.0.18)) GOTO 2685 
GOTO 2610 

2695 WRITE(6,2700) 

2700 FORMAT(/7X,'ENTER THE T/C RATIO AT THE WING TIP: ',$) 
READ(5,2490,ERR-2695) TCTIP 

IF((TCTIP.LE.0.02).OR.(TCTIP.GT.0.18)) GOTO 2695 
GOTO 2610 

2705 WRITE(6,2710) 

2710 FORMAT(/7X,'ENTER THE TE FLAP WIDTH AS A FRACTION'/ 

& ' OF TOTAL CHORD: ',$) 

READ(5,2490,ERR-2705) TFLAPC 

IF((TFLAPC.lt.0.0).OR.(TFLAPC.GT.0.5)) GOTO 2705 
GOTO 2610 

2715 WRITE(6,2720) 

2720 FORMAT(/7X,'ENTER THE POSITION OF THE WING 1/4 CHORD'/ 

S' AS A FRACTION OF TOTAL BODY LENGTH: ',$) 

READ(5,2490,ERR-2715) XWING 

IF((XWING.GT.1.0).OR.(XWING.lt.0.0)) GOTO 2715 
GOTO 2610 

2725 WRITE(6,2730) 

2730 FORMAT(/7X,'ENTER THE ELEVATION OF THE WING ON THE'/ 

S ' FUSELAGE (1.O-TOP, 0.0-44ID-MOUNT, -1.O-BOTTOM): ',$) 

BEAD(5,2460,BRR-2725) ZROOT 

IF((2ROOT.lt.-1.0).OR.(ZROOT.GT.1.0)) GOTO 2725 
GOTO 2610 

2735 WRITE(6,2740) 

2740 FORMAT(/7X,'ENTER THE FRACTION OF THE WING VOLUME THAT'/ 

S 7X,'WILL BE FILLED WITH FUEL: ',$) 

READ(5,2490,ERR-2735) WFFRAC 

IF((WFFRAC.GT.1.0).OR.(WFFRAC.lt.0.0)) GOTO 2735 
GOTO 2610 

2745 WRITE(6,2750) 

2750 FORMAT(/7X,'ENTER THE FUEL DENSITY (LB/FT3): ',$) 
READ(5,2475,ERR-2745) FDENWG 
IF((FDENWG.lt.0.0)) GOTO 2745 
GOTO 2610 

2760 WRITE(7,2765) AR, AREA, DIHED, LFLAPC, SWFACT, TAPER, TCROOT, 

S TCTIP, TFLAPC, XWING, ZROOT, WFFRAC, FDENWG, OUTCOD 
2765 FORMAT(' $QWING'/ 

S 5X, ' AR-' , F5.2, ' , ' , 6X,'AREA-',F7.2,',',2X,'DIKED-',F5.2,',',/ 

S 5X,'LFLAPC-',F4.2,',',3X,'SWFACT-',F4.2,',',3X,'TAPER-',F4.2, 
S ' , '/5X,'TCROOT-',F4.2,',',3X,'TCTIP-',F4.2,',',4X,'TFLAPC-', 

S F4.2,','/5X,'XWING-',F4.2,',',4X,'ZROOT-',F5.2,',',3X, 

S 'WFFRAC-',F4.2,','/5X,'FDENWG-',F6.2,',',IX,'OUTCOD-',II,','/ 
S 5X,'SEND') 

GOTO 2800 
ENDIF 


- STRAKE GEOMETRY 
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c- 

2800 


) IF(STRAKE.EQ.'NO') GOTO 3000 
IF(DVFLAG.EQ..TRUE.) THEN ! SET STRAKE DEFAULTS 
XLEXT-0.0 
YSEXT-O.0 
XLAFT-0.0 
YSAFT-O.0 
SWFACT-1.0 
IFLEX-0 

ELSE ! GET THE OLD STRAKE VALUES 

REWIND(10) 

) READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN ! OLD STRAKE HOT FOUND 
XLEXT-O.0 
YSEXT-O.0 
XLAFT-0.0 
YSAFT-O.0 
SWFACT-1.0 
IFLEX-0 

ELSE ! OLD STRAKE VALUES FOUND 

IF (MtS.m.' $STRA') GOTO 2830 

READ(10,2840) XLEXT, YSEXT, XLAFT, YSAFT, SWFACT, 

& IFLEX 

) FORMAT(llX,F4.2,llX,F4.2,llX,r4.2/llX,F4.2, 

& 12X,F4.2,10X,I1) 

ENDIF 

ENDIF 

) STATUS - L1B$SPAWN('CLS') 

WRITE(6,2860) XLEXT, YSEXT, XLAFT, YSAFT, SWFACT, IFLEX 
) FORMAT(/ 

fi7X,STRAKE GEOMETRY **'// 

fi7X,'(1) X LOCATION OF THE LE STRAKE AS A'/ 

fi7X,' FRACTION OF TOTAL FUSELAGE LENGTH.',r4.2/ 

fi7X,' (2) RATIO OF THE LE STRAKE SPAN/2 TO THEV 

«7X, ' WING SPAN/2.',F4.2/ 

&7X,' (3) X L0C:ATI0N of the TE STRAKE AS A'/ 

S7X,' FRACTION OF TOTAL FUSELAGE LENGTH.',r4.2/ 

«7X,'(4) RATIO OF THE TB STRAKE SPAN/2 TO THE'/ 

47X, ' WING SPAN/2.',r4.2/ 

&7X,'(5) WETTED AREA MULTIPLIER FOR BOTH STRAKES...',r4.2/ 

47X, M6) STRAKE BHWTNESS FLAG. ',11/ 

&7X,' (SHARP LEADING EDGE-0)'/ 

&7X,' (BLUNT LEADING BDGB-1)'// 

&7X,'SELECT THE VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,21,ERR-2850) NUM 
IF(NUM.EQ.O) GOTO 2950 

GOTO (2880, 2890, 2900, 2910, 2920, 2930), NUM 
GOTO 2850 
) WRITE(6,2881) 

L FORMAT(/7X,'ENTER THE X LOCATION OF THE LE STRAKE AS'/ 

&' A FRACTION OF TOTAL FUSELAGE LENGTH: ',$) 

READ(5,2490,ERR-2880) XLEXT 

IF((XLEXT.LT.0.0).OR.(XLEXT.GT.XWING)) GOTO 2880 
GOTO 2850 
) WRITE(6, 2891) 

L FORMAT(/7X,'ENTER THE RATIO OF THE LE STRAKE SPAN/2'/ 

S7X,'TO THE MING SPAN/2: ',§) 

READ(5,2490,ERR-2890) YSEXT 

IF((YSEXT.GT.1.0).OR.(YSEXT.lt.0.0)) GOTO 2890 
GOTO 2850 
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2900 WRITE(6,2901) 

2901 FORMAT(/7X,'ENTER THE X LOCATION OF THE TE STRAKE AS'/ 

FRACTION OF TOTAL FUSELAGE LENGTH: ',$) 

READ(5,2490,ERR-2900) XLAFT 

IF((XLAFT.lt.XWING).OR.(XLAFT.GT.1.0)) GOTO 2900 
GOTO 2850 

2910 WRITE(6,2911) 

2911 FORMAT(/7X,'ENTER THE RATIO OF THE TE STRAKE SPAN/2'/ 
fi7X,'TO THE WING SPAN/2: ',§) 

READ(5,2490,ERR-2910) YSAFT 

IF((YSAFT.GT.1.0).OR.(YSAFT.lt.0.0)) GOTO 2910 
GOTO 2850 

2920 WRITE(6,2921) 

2921 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 
READ(5,2490,ERR-2920) SWFACT 

IF((SWFACT.lt.0.0).OR.(SWFACT.GT.2.0)) GOTO 2920 
GOTO 2850 

2930 WRITE(6,2931) 

2931 FORMAT(/7X,'ENTER THE STRAKE BLUNTNESS FLAG'/ 

&7X,'(SHARP LE-0, BLUNT LE-1): ',$) 

READ(5,2940,ERR-2930) IFLEX 
2940 FORMAT(II) 

IF((IFLEX.NE.O).AND.(IFLEX.NE.l)) GOTO 2930 
GOTO 2850 

2950 WRITE(7,2951) XLEXT, YSEXT, XLAFT, YSAFT, SWFACT, IFLEX 

2951 FORMAT(' SSTRAKE'/5X,'XLEXT-',F4.2,',',4X,'YSEXT-',F4.2, 
6',',4X,'XLAFT-',F4.2,','/5X,'YSAFT-',F4.2,',',4X, 

&' SWFACT-',F4.2,',',3X,'IFLEX-',II,','/5X,'$END') 

GOTO 3000 


- HORIZONTAL TAIL GEOMETRY 


3000 IF(HTAIL.EQ.'NO') GOTO 3200 

IF(DVFLAG.EQ..TRUE.) THEN ! SET DEFAULTS 

AR-5.0 
AREA-50.0 
CVHT-1.0 
HTFRAC-0.0 
SWEEP-0.0 
SWFACT-1.0 
TAPER-0.99 
TCROOT-0.1 
TCTIP-0.1 
XHTAIL-1.0 
ZROOT-0.0 
KSWEEP-0 
OUTCOD-2 
SIZIT-.FALSE. 

ELSE 

REWIND(10) 

3010 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN 
AR-5.0 
AREA-0.0 
CVHT-1.0 
HTFRAC-0.0 
SWEEP-0.0 
SWFACT-1.0 
TAPER-0.99 
TCROOT-0.1 
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TCTIP-0.1 
XHTAIl^l.0 
ZRCXJT-0.0 
KSHEEP-0 
OUTCOD-2 
SI21T-r 
ELSE 

ZF(AMS.NE.' $HTAI') GOTO 3010 

READ(10,3020) AR, AREA, CVHT, HTFRAC, SHEEP, SHFACT, TAPER, 
« TCROOT, TCTIP, XHTAIL, ZROOT, KSWEEP, OUTCOD, SIZIT 
3020 FORMAT(8X,F5.2,12X,F7.2,8X,F4.2/12X,F5.3,9X,F5.2,llX,F4.2/ 

& IIX,F4.2,12X,F4.2,lOX,F4.2/12X,F4.2,lOX,F4.2,12X,11/ 

£ 12X,Z1,13X,L1) 

ENDIF 

ENDZF 

3030 STATUS - LIB$SPAHN('CLS') 

WRITE(6,3040) AR, AREA, CVHT, SHEEP, SHFACT, TAPER, 


fiTCROOT, TCTIP, XHTAIL, ZROOT, SIZIT, HTFRAC 
3040 FORMAT(/ 

&7X,'** HORIZONTAL TAIL GEOMETRY **'// 

S7X,'(1) ASPECT RATIO.',*'5.2/ 

47X,'(2) SURFACE AREA (SQ FT). • ,T1.2/ 

t7X,'(3) TAIL VOLUME COEFFICIENT.',F4.2/ 

S7X,'(4) LE SWEEP (DEG).',F5.2/ 

fi7X,' (5) WETTED AREA MULTIPLIER.',F4.2/ 

*7X,'(6) TAPER RATIO.',F4.2/ 

fi7X, ' (7) T/C RATIO AT ROOT.',F4.2/ 

£7X, ' (8) T/C RATIO AT TIP.',F4.2/ 

47X,'(9) POSITION OF THE TE OF TAIL ROOT CHORD AS'/ 

S7X, ' A FRACTION OF TOTAL FUSELAGE LENGTH.',F4.2/ 

*7X,' (10) ELEVATION OF TAIL ON FUSELAGE.',F4.2/ 

*7X,' (0 - 1.0: TAIL WITHIN FUSELAGE)'/ 

47X,' (1.0 - 1.99; TAIL ABOVE FUSELAGE)'/ 

S7X, ' (2.0: HORIZONTAL TAIL ON TOP OF VERTICAL TAIL)'/ 

fi7X,'(ll) SIZING LOGIC.',L1/ 

47X,' (T « TAIL AREA RECCMPUTED BY ACSYNT)'/ 

47X,' (F • USB THE INPUT TAIL AREA ONLY)'/ 

&7X,'(12) HORIZONTAL TAIL SIZING FRACTION.',F5.3// 

47X,'SELECT A VALUE TO CHANGE OR 0 TO QUIT: ',$) 
READ(5,2411,ERR*3030) NUM 
IF(NUM,BQ.0) GOTO 3120 


GOTO (3050, 3055, 3060, 3065, 3070, 3075, 3080, 3085, 3090, 
£3095, 3100, 3110), NUM 
GOTO 3030 

3050 WRITE(6,3051) 

3051 FORMAT(/7X,'ENTER THE ASPECT RATIO: ',$) 
RXAD(5,2460,ERR-3050) AR 

IF((AR.LT.0.0).OR.(AR.GT.12.0)) GOTO 3050 
GOTO 3030 

3055 WRITE(6,3056) 

3056 FORMAT(/7X,'ENTER THE HORIZONTAL TAIL AREA (SQ FT): ',$) 
READ(5,2446,ERR-3055) AREA 

IF(AREA.LT.0.0) GOTO 3055 
GOTO 3030 

3060 WRITE(6,3061) 

3061 FORMAT(/7X,'ENTER THE TAIL VOLUME COEFFICIENT: ',$) 
READ(5,2490,ERR-3060) CVHT 

IF((CVHT.LT.0.3).OR.(CVHT.GT.1.0)) GOTO 3060 
GOTO 3030 
3065 WRITE(6, 3066) 
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3066 FORMAT(/7X,'ENTER THE LEADING EDGE TAIL SWEEP (DEG); ',$) 
READ(5,2460,ERR-3065) SWEEP 

IF((SWEEP.LT.-9.0).OR.(SWEEP.GT.60.0)) GOTO 3065 
GOTO 3030 

3070 WRITE(6,3071) 

3071 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 
READ(5,2490,ERR-3070) SWFACT 

IF((SWFACT.lt.0.0).OR.(SWFACT.GT.2.0)) GOTO 3070 
GOTO 3030 

3075 WRITE(6,3076) 

3076 FORMAT(/7X,'ENTER THE HORIZONTAL TAIL TAPER RATIO: ',$) 
R£AD(5,2490,ERR-3075) TAPER 

IF((TAPER.LT.0.0).OR.(TAPER.GT.1.0)) GOTO 3075 
GOTO 3030 

3080 WRITE(6,3081) 

3081 FORMAT(/7X,'ENTER THE THICKNESS/CHORD RATIO'/ 
fi7X,'AT THE HORIZONTAL TAIL ROOT: ',$) 

READ(5,2490,ERR-3080) TCROOT 

IF((TCROOT.lt.0.02).OR.(TCROOT.GT.0.18)) GOTO 3080 
GOTO 3030 

3085 WRITE(6,3086) 

3086 FORMAT(/7X,'ENTER THE THICKNESS/CHORD RATIO AT THE TAIL TIP: ',$) 
READ(5,2490,ERR-3085) TCTIP 

IF((TCTIP.lt.0.02).OR.(TCTIP.GT.0.18)) GOTO 3085 
GOTO 3030 

3090 WRITE(6,3091) 

3091 FORMAT(/7X,'ENTER THE POSITION OF THE TRAILING EDGE'/ 

47X,'OF THE HORIZONTAL TAIL AS A FRACTION OF TOTAL'/ 

&7X,'FUSELAGE LENGTH: ',$) 

READ(5,2490,ERR-3090) XHTAIL 

IF((XHTAIL.lt.0.5).OR.(XHTAIL.GT.1.0)) GOTO 3090 
GOTO 3030 

3095 WRITE(6,3096) 

3096 FORMAT(/7X,'ENTER THE ELEVATION OF THE HORIZONTAL TAIL'/ 
i7X,'0.0 - 0.99 HAS THE TAIL IN THE FUSELAGE'/ 

fi7X,'1.0 - 1.99 HAS THE TAIL ON THE VERTICAL STAB'/ 

S7X,'2.0 HAS THE TAIL ON TOP OF THE VERTICAL STAB: ',$) 
READ(5/2490,ERR-3095) ZROOT 

IF((ZROOT.LT.0,0).OR.(2ROOT.GT.2.0)) GOTO 3095 
GOTO 3030 

3100 WRITE(6,3101) 

3101 FORMAT(/7X,'ENTER THE HORIZONTAL TAIL SIZING LOGIC'/ 
fi7X,'T « ACSYNT WILL RESIZE THE TAIL'/ 

S7X,'F - THE INPUT VALUE OF THE TAIL SIZE IS USED: ',$) 
READ(5,3105,ERR-3100) SIZIT 
3105 FORMAT(LI) 

GOTO 3030 
3110 WRITE(6,3115) 

3115 FORMAT(/7X,'ENTER THE HORIZONTAL TAIL SIZING FRACTION.'/ 

&7X,'IF 0.0 IS ENTERED THE TAIL WILL BE SIZED USING THE'/ 

&7X,'VOLUME COEFFICIENT; ',$) 

READ(5,3117,ERR-3110) HTFRAC 
3117 FORMAT(F5.3) 

IF((HTFRAC.LT.0.0).OR.(HTFRAC.GT.1.0)) GOTO 3110 
GOTO 3030 

3120 WRITE(7,3125) AR, AREA, CVHT, HTFRAC, SWEEP, SWFACT, TAPER, 
&TCROOT, TCTIP, XHTAIL, ZROOT, KSWEEP, OUTCOD, SIZIT 
3125 FORMAT(' $HTAIL'/5X,'AR-',F5.2,',',6X,'AREA-',F7.2,',',2X, 

S'CVHT-',F4.2,','/5X,'HTFRAC-',F5.3,',',2X,'SWEEP-',F5.2,',', 

S3X,'SWFACT-',F4.2,','/5X,'TAPER-',F4.2,',',4X, 'TCROOT-' , F4.2, 
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, 3X,'TCTIP-',F4.2,','/5X,'XHTAIL-',F4.2,S'/3X,'ZRCX5T-', 

SF4.2,',',4X,'KSWEEP-',11,','/5X, • OUTCOD-',II,','6X,'SIZIT-', 
fiLl,', V5X,'$END') 

GOTO 3200 

C-VERTICAL TAIL GEC»ffl:TRY 

C- 

3200 IF(VTAIL.EQ.'MO') GOTO 3400 

IF(DVFLAG.EQ..TRUE.) THEN ! SET VTAIL DEFAULTS 

AR-5.0 
AREA-50.0 
CVVT-0.6 
SNEEP-0.0 
SWFACT-1.0 
TAPER-0.99 
TCROOT-0.1 
TCTIP-0.1 
VTFRAC-0.0 
VTNO-1.0 
XVTAIL-1.0 
YROOT-0.0 
ZROOT-0.0 
KSWEEP-0 
OUTCOD-2 
SIZIT-F 

ELSE ! READ OLD VTAIL 

REWIND(10) 

3210 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN 
AR-S.O 
AREA-0.0 
CVVT-0.08 
SNEEP-0.0 
SWFACT-1.0 
TAPBR-0.99 
TCROOT-0.1 
TCTlP-0.1 
VTFRAC-0.0 
VTNO-1.0 
XVTAIL-1.0 
YROOT-0.0 
ZROOT-0.0 
KSWEEP-0 
OUTCOD-2 
SIZIT-F 
ELSE 

1F(ANS.NE.' $VTAI') GOTO 3210 

READ (10,3220) AR, AREA, CWT, SWEEP, SWFACT, TAPER, TCROOT, 
& TCTIP, VTFRAC, VTNO, XVTAIL, YROOT, ZROOT, KSWEEP, OUTCOD, 

& SIZIT 

3220 FORMAT(8X,F5.2,12X,F7.2,8X,F4.2/11X,F5.2,11X,F4.2,10X,F4.2/ 

6 12X,F4.2,10X,F4.2,12X,F5.3/10X,F3.1,14X,F4.2,10X,F4.2/ 

£ 11X,F4.2,12X,I1,14X,I1/11X,L1) 

ENDIF 
END IF 

3230 STATUS - LIBSSPAWN('CLS') 

WRITE (6,3240) AR, AREA, CWT, SWEEP, SWFACT, TAPER, TCROOT, 
£TCTIP, VTNO, XVTAIL, ZROOT, SIZIT, VTFRAC 

3240 FORMAT(/ 

fi7X,VERTICAL TAIL GEOMETRY **'// 
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fi7X,'(l) ASPECT RATIO.',F5.2/ 

&7X,'(2) TAIL AREA (SQ FT).',F7.2/ 

fi7X,M3) TAIL VOLUME COEFFICIENT.',F4.2/ 

fi7X,'(4) LE SWEEP (DEG).%F5.2/ 

&7X,'(5) WETTED AREA MULTIPLIER.',F4.2/ 

fi7X,M6) TAPER RATIO.',F4.2/ 

&7X, ' (7) T/C RATIO AT ROOT.',F4.2/ 

S7X, ' (8) T/C RATIO AT TIP.',F4.2/ 

S7X, ' (9) NUMBER OF VERTICAL TAILS.',F3.1/ 

fi7X,'(10) X LOCATION OF THE TE OF THE ROOT CHORD'/ 

S7X, ' AS A FRACTION OF FUSELAGE LENGTH.',F4.2/ 

«7X,'(11) ELEVATION OF THE ROOT CHORD OF THE TAIL AS'/ 

67X, ' A FRACTION OF THE FUSELAGE RADIUS.',F4.2/ 

&7X,'(12) SIZING LOGIC.',L1/ 

fi7X,' T - ACSYNT WILL COMPUTE TAIL AREA'/ 

&7X,' F - THE INPUT TAIL AREA WILL BE USED'/ 

fi7X,'(13) VERTICAL TAIL SIZING FRACTION.',F5.3// 

fi7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,2411,ERR«3230) NUM 
IF(NUM.BQ.O) GOTO 3340 


GOTO (3250, 3255, 3260, 3265, 3270, 3275, 3280, 3285, 3290, 
43300, 3310, 3320, 3330), NUM 
GOTO 3230 

3250 WRITE(6, 3251) 

3251 FORMAT(/7X,'ENTER THE ASPECT RATIO: ',$) 
READ(5,2460,ERR-3250) AR 
IF((AR.LT.0.0).OR.(AR.GT.12.0)) GOTO 3250 
GOTO 3230 

3255 WRITE(6,3256) 

3256 FORMAT(/7X,'ENTER THE VERTICAL TAIL AREA (SQ FT): ',$) 
READ(5,2446,ERR«3255) AREA 

IF(AREA.LT.0.0) GOTO 3255 
GOTO 3230 

3260 WRITE(6,3261) 

3261 FORMAT(/7X,'ENTER THE VERTICAL TAIL VOLUME COEFFICIENT: ',$) 
READ(5,2490,ERR»3260) CWT 

IF( (CWT.LT.O.Ol) .OR. (CVVT.GT.0.2)) GOTO 3260 
GOTO 3230 

3265 WRITE(6,3266) 

3266 FORMAT(/7X,'ENTER THE LE SWEEP OF THE VERTICAL TAIL: ',$) 
READ (5,2460,ERR><>3265) SWEEP 

IF((SWEEP.LT.-9.0).OR.(SWEEP.GT.60.0)) GOTO 3265 
GOTO 3230 

3270 WRITE(6,3271) 

3271 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 
READ(5,2490,ERR-3270) SWFACT 

IF((SWFACT.lt.0.0).OR,(SWFACT.GT.2.0)) GOTO 3270 
GOTO 3230 

3275 WRITE(6,3276) 

3276 FORMAT(/7X,'ENTER THE TAPER RATIO: ',$) 

READ(5,2490,ERR«3275) TAPER 

IF((TAPER.lt.0.0).OR.(TAPER.GT.1.0)) GOTO 3275 
GOTO 3230 

3280 WRITE(6,3281) 

3281 FORMAT(/7X,'ENTER THE T/C RATIO AT ROOT: ',$) 
READ(5,2490,ERR«3280) TCROOT 

IF((TCROOT.lt.0.02).OR.(TCROOT.GT.0.18)) GOTO 3280 
GOTO 3230 

3285 WRITE(6,3286) 

3286 FORMAT(/7X,'ENTER THE T/C RATIO AT TIP: ',$) 
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READ(5,2490,ERR-3285) TCTIP 

ir((TCTIP. lt.0.02).OR.<TCTIP.GT.0.18)) GOTO 3285 
GOTO 3230 

3290 WRITE(6,3291) 

3291 FORMAT(/7X,'ENTER THE NUMBER OF VERTICAL TAILS'/ 

&7X,'2.0 > 2 SYtMETRICALLY LOCATED TAILS'/ 

«7X,'3.0 - 1 TAIL ON CENTERLINE AND 2 SYMMETRICALLY LOCATED'// 

67X,'NUMBER OF TAILS: ',$) 

READ(5,3295,ERR-3790) VTNO 
3295 FORMAT(F3.1) 

IF((VTNO.NE.1.0).AND.(VTNO.NE.2.0).AND.(VTNO.NE.3.0)) GOTO 3290 
GOTO 3230 

3300 WRITE(6,3301) 

3301 FORMAT(/7X,'ENTER THE POSITION OF THE TE OF THE TAIL ROOT CHORD'/ 
&7X,'AS A FRACTION OF FUSELAGE LENGTH: ',$) 

READ(5,2490,ERR-3300) XVTAIL 

IF((XVTAIL.lt.0.0).OR.(XVTAIL.GT.1.0)) GOTO 3300 
GOTO 3230 

3310 WRITE(6,3311) 

3311 FORMAT(/7x,'ENTER THE ELEVATION OF THE ROOT CHORD OF'/ 

47X,'THE VERTICAL TAIL AS A FRACTION OF THE MAXIMUM'/ 

«7X,'FUSELAGE RADIUS: ',$) 

READ(5,2490,ERR*3310) ZROOT 

IF((ZROOT.lt.-1.0).OR.(ZROOT.GT.1.0)) GOTO 3310 
GOTO 3230 

3320 WRITE(6,3321) 

3321 FORMAT(/7x,'ENTER THE SIZING LOGIC'/ 

fi7X,'T - ACSYNT WILL SIZE THE VERTICAL TAIL'/ 

&7X,'F « THE INPUT VALUE OF THE TAIL AREA WILL BE USED: ',$) 
R£AD(5,3105,ERR-3320) SIZIT 
GOTO 3230 
3330 WRITE(6,3335) 

3335 FORMAT(/7X,'ENTER THE VERTICAL TAIL SIZING FRACTION.'/ 

«7X,'IF 0.0 IS ENTERED, THE TAIL WILL BE SIZED USING THE'/ 

47X,'VOLUME COEFFICIENT: ',$) 

READ(5,3117,ERR-3330) VTFRAC 

IF((VTFRAC.lt.0.0).OR.(VTFRAC.GT.1.0)) GOTO 3330 
GOTO 3230 

3340 WRITE (7,3341) AR, AREA, CWT, SWEEP, SWFACT, TAPER, TCROOT, 
STCTIP, VTFRAC, VTNO, XVTAIL, YROOT, ZROOT, KSWEEP, OUTCOD, 

&SIZIT 

3341 FORMAT(' $VTAIL'/5X,'AR-',F5.2,',',6X,'AREA-',F7.2,',',2X, 

4' CWT-' , F4.2, ' , ' /5X, ' SWEEP-' ,F5.2, ' , ' , 3X, ' SWFACT-' , F4.2, ' , ' , 

53X,'TAPER-',F4.2,','/5X,'TCROOT-',F4.2,',',3X,'TCTIP-',F4.2, 

4',',4X,'VTFRAC-',F5.3,','/5X,'VTNO-',F3.1,',',6X, ' XVTAIL-', 

4F4.2,',',3X,'YROOT-',F4.2,','/5X,'ZROOT-',F4.2,',',4X, 

4'KSWBEP-',II,',',6X,'OUTCOD-',II,','/5X,'SIZIT-',LI,','/ 

45X,'$END') 

GOTO 3400 

C - CANARD GEOMETRY 

3400 IF(CANARD.EQ.'NO'} GOTO 3600 

IF(DVFLA6.EQ..TRUE.) THEN ! SET CANARD DEFAULTS 
AR-5.0 
AREA-50.0 
CVCAN—.8 
CFRAC-0.0 
SWEEP-0.0 
SWFACT-1.0 
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TAPER-0.99 
TCROOT-0.1 
TCTIP-0.1 
XCAN-0.0 
2ROOT-0.0 
NCAN-1 
KSHEEP-0 
OOTCOD-2 
S1ZZT-.FALSE. 

ELSE ! GET THE OLD VALUES 

REWIND(10) 

3420 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN ! OLD VALUES NOT FOUND 

AR-5.0 
AREA-0.0 
CVCAN—1.0 
CFRAC-0.0 
SHEEP-0.0 
SWFACT-1.0 
TAPER-0.99 
TCROOT-0.1 
TCTIP-0.1 
XCAN-0.0 
ZROOT-0.0 
NCAN-1 
OUTCOD-2 
SIZIT-.FALSE. 

ELSE 

IF(ANS.NE.' $CANA') GOTO 3420 

C - ICAN REMOVED...NOT IN CANARD NAMELIST 

READ(10,3430) AR, AREA, CVCAN, SWEEP, SWFACT, TAPER, 

& TCROOT, TCTIP, XCAN, ZROOT, NCAN, KSWEEP, 

& OUTCOD, SIZIT, CFRAC 

3430 FORMAT(8X,F5.2,12X,F7.2,9X,F5.2/llX,F5.2,llX,F4.2, 

6 lOX,F4.2/12X,F4.2,lOX,F4.2,lOX,F4.2/llX,F5.2,24X, 

£ Z1/12X,II,14X,II,13X,Ll/llX,F5.3) 

END IF 

ENDIF 

3440 STATUS - LIB$SPAWN('CLS') 

WRITE(6,3450) AR, AREA, CVCAN, SWEEP, SWFACT, TAPER, TCROOT, 


4TCTIP, XCAN, ZROOT, NCAN, SIZIT, CFRAC 
3450 FORMAT(/ 

fi7X,CANARD GEOMETRY **'// 

£7X,'(1) ASPECT RATIO. ',F5.2/ 

£7X,'(2) AREA (SOFT). ',F7.2/ 

£7X,'(3) CANARD VOLUME COEFFICIENT.',F5.2/ 

fi7X,'(4) SWEEP (DEG). ',F5.2/ 

£7X,M5) wetted REA MULTIPLIER.',F4.2/ 

fi7X,'(6) TAPER RATIO.',F4.2/ 

£7X, ' (7) T/C RATIO AT ROOT. ' ,Fi.2/ 

47X,M8) T/C ratio AT TIP.SF4.2/ 

fi7X, ' (9) X LOCATION OF CANARD LE, AS A FRACTION'/ 

£7X, ' OF FUSELAGE LENGTH.',F4.2/ 

£7X,'(10) ELEVATION OF CANARD ON FUSELAGE.',F5.2/ 

fi7X,' (1.0 - TOP, -1.0 - BOTTOM)'/ 

47X,'(11) CANARD LOCATION. ',11/ 

47X, ' (1 - CANARDS ON CENTRAL BODY)'/ 

£7X,' (2 - CANARDS OUTBOARD OF TWIN NACELLES)'/ 

£7X,'(12) sizing logic.',L1/ 

£7X,' (T - CANARD AREA RECCXffUTED BY ACSYNT)'/ 
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S7X,' (F - CANARD AREA FIXED BY INPUT VALUE)V 

fi7X,M13) CANARD SIZING FRACTION.',F5.3// 

fi7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,2411,ERR-3440) NUM 
IF(NUM.EQ.O) GOTO 3530 

GOTO (3460, 3465, 3470, 3475, 3480, 3485, 3490, 3495, 3500, 3505, 
&3510, 3515, 3520), NUM 
GOTO 3440 

3460 WRITE(6,3461) 

3461 FORMAT(/7X,'ENTER THE ASPECT RATIO: ',$) 

READ(5,2460,ERR-3460) AR 
IF((AR.LE.0.0).OR.(AR.GT.12.0)) GOTO 3460 
GOTO 3440 

3465 WRITE(6,3466) 

3466 FORMAT(/7X,'ENTER THE CANARD AREA (SQ FT). IF YOU'/ 

£7X,'WANT ACSYNT TO SIZE THE CANARD BASED ON THE'/ 

47X,'CANARD VOLUME COEFFICIENT, ENTER 0.0; ',$) 

READ(5,2446,ERR-3465) AREA 
IF(AREA.LT.0.0) GOTO 3465 
GOTO 3440 

3470 WRITE(6,3471) 

3471 FORMAT(/7X,'ENTER THE C:ANARD VOLUME COEFFICIENT'/ 

47X,'(THIS SHOULD BE A NEGATIVE VALUE): ',$) 

READ(5,2460,ERR«3470) CVCAN 

IF((CVCAN.lt.-1.0).OR.(CVCAN.GT.0.0)) GOTO 3470 
GOTO 3440 

3475 WRITE(6,3476) 

3476 FORMAT(/7X,'ENTER THE LEADING EDGE SWEEP (DEG): ',$) 
READ(5,2460,ERR-3475) SWEEP 

IF((SWEEP.LT.-9.0).OR.(SWEEP.GT.60.0)) GOTO 3475 
GOTO 3440 

3480 WRITE(6,3481) 

3481 FORMAT(/7X,'ENTER THE WETTED AREA MULTIPLIER: ',$) 
READ(5,2490,ERR->3480) SWFACT 

IF((SWFACT.LE.0.0).OR.(SWFACT.GT.2.0)) GOTO 3480 
GOTO 3440 

3485 WRITE(6,3486) 

3486 FORMAT(/7X,'ENTER THE TAPER RATIO: ',$) 

READ(5,2490,ERR»3485) TAPER 

IF((TAPER.LT.0.0).OR.(TAPER.GT.1.0)) GOTO 3485 
GOTO 3440 

3490 WRITE(6,3491) 

3491 FORMAT(/7X,'ENTER THE T/C RATIO AT THE ROOT; ',$) 
READ(5,2490,ERR-3490) TCROOT 

IF((TCROOT.lt.0.02).OR.(TCROOT.GT.0.18)) GOTO 3490 
GOTO 3440 

3495 WRITE(6,3496) 

3496 FORMAT(/7X,'ENTER THE T/C RATIO AT THE TIP; ',$) 
READ(5,2490,ERR-3495) TCTIP 

IF((TCTIP.LT.0.02).OR.(TCTIP.GT.0.18)) GOTO 3495 
GOTO 3440 

3500 WRITE(6,3501) 

3501 FORMAT(/7X,'ENTER THE X LOCATION OF THE LEADING EDGE'/ 

&7X,'OF THE CANARD AS A FRACTION OF THE FUSELAGE'/ 
t7X,'LENGTH; ',$) 

READ(5,2490,ERR-3500) XC:aN 

IF((XCAN.lt.0.0).OR.(XCAN.GT.0.5)) GOTO 3500 
GOTO 3440 

3505 WRITE(6,3506) 

3506 FORMAT(/7X,'ENTER THE ELEVATION OF THE CANARD ON THE'/ 
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fi7X,'FUSELAGE (1.0 - TOP OF FUSELAGE, -1.0 - BOTTCM'/ 

&7X,'OF FUSELAGE): ',$) 

READ(5,2460,ERR-3505) ZROOT 

IF((ZROOT.lt.-1.0).OR.(ZROOT.GT.1.0)) GOTO 3505 
GOTO 3440 

3510 WRITE(6,3511) 

3511 FORMAT(/7X,'ENTER THE CANARD LOCATION CODE'/ 
t7X,'(1 - CANARD IS ON THE CENTRAL BODY)'/ 

fi7X,'(2 - CANARD IS MOUNTED OUTBOARD OF TWIN NACELLES): ',$) 

READ(5,2940,ERR-3510) NCAN 

IF((NCAN.NE.l).AND.(NCAN.NE.2)) GOTO 3510 

GOTO 3440 

3515 WRITE(6,3516) 

3516 FORMAT(/7X,'ENTER THE CANARD SIZING LOGIC'/ 
fi7X,'(T - ACSYNT MAY RESIZE THE CANARD)'/ 

S7X,' (F - THE INPUT VALUE OF CANARD SIZE WILL BE USED): ',$) 
READ(5,3105,ERR-3515) SIZIT 
GOTO 3440 
3520 WRITE(6,3525) 

3525 FORMAT(/7X,'ENTER THE CANARD SIZING FRACTION. IF 0.0'/ 

&7X,'IS ENTERED, THE CANARD WILL BE SIZED USING THE'/ 
fi7X,'VOLUME COEFFICIENT; ',$) 

READ(5,3117,ERR-3520) CFRAC 

IF((CFRAC.lt.0.0).OR.(CFRAC.GT.1.0)) GOTO 3520 
GOTO 3440 

3530 WRITE(7,3531) AR, AREA, CVCAN, SWEEP, SWFACT, TAPER, TCROOT, 
iTCTIP, XCAN, ZROOT, NCAN, KSWEEP, OUTCOD, SIZIT, CFRAC 

3531 FORMAT(' SCANARD'/5X,'AR-',F5.2,',',6X,'AREA-',F7.2,',', 
fi2X,'CVCAN-',F5.2,','/5X,'SWEEP-',F5.2,',',3X,'SWFACT-', 

&F4.2, ', ' ,3X,'TAPER-',F4.2,','/5X,'TCROOT-',F4.2,',',3X, 

S'TCT1P-',F4.2,',',4X,'XCAN-',F4.2,','/5X,'ZROOT-',F5.2, 

6',',18X,'NCAN-',II,','/5X,'KSWEEP-',II, 

S',',6X,'OUTCOD-',II,',',6X,'SIZIT-',LI,',' /5X, ' CFRAC-',F5.3, 
S',',3X,'$END') 

GOTO 3600 

C- 

C - WING POD GEOMETRY 

C- 

3600 IF(WPOD.EQ.'NO') GOTO 3700 

3602 STATUS - LIB$SPAWN('CLS') 

WRITE(6,3603) 

3603 FORMAT(//7X,'ENTER THE NUMBER OF WING PODS. IF THE PODS ARE'/ 
S7X,' SYtmETRICALLY MOUNTED AROUND THE FUSELAGE, JUST ENTER'/ 

S7X,'THE NUMBER OF PODS ON ONE SIDE OF THE AIRCRAFT AND'/ 

S7X,'SELECT THE WING POD SYMMETRY CODE. (A MAXIMUM TOTAL OF'/ 

S7X,'10 PODS MAY BE USED'// 

S7X,'NUMBER OF PODS; ',$) 

READ(5,2411,ERR-3602) PODNUM 

IF((PODNUM.GT.10).OR.(PODNUM.lt. 1)) GOTO 3602 
DO 3690 I-l,PODNUM 

IF((DVFLAG.EQ..TRUE.).OR.(WPODFL.EQ.1)) THEN ! SET DEFAULTS 
DIAM-3.0 
LENGTH-10.0 
X-0.0 
Y-0.5 
Z—1.0 
OUTCOD-2 
SYMCOD-0 
ELSE 

IF(I.EQ.l) REWIND(10) 
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3610 



3615 

£ 


3620 

3625 


3630 

3631 


3635 

3640 

3641 


3645 

3646 

& 

& 


3650 

3651 


READ(10,26) ANS 
ir(ANS.EQ.'$$$$$$') THEN 

NPODFL-1 ! FLAG TO PREVENT EOF ERROR 

DIAti^3.0 

LENGTH-10.0 

X-O.O 

y-0.5 


2 — 1.0 

ocrrcoD-2 

STMCOD-O 

ELSE 

IF(ANS.NE.' $WPOD') GOTO 3610 

READ(10,3615) OIAM, LENGTH, X, Y, 2, OUTCOD, SYMCOD 
FORMAT(lOX,F6.2,IIX,F6.2,4X,F5,2/7X,F3.1,12X,F5.2, 
15X,I1/12X,Z1) 

ENDXF 

ENDZF 

STATUS - LZB$SPANN('CLS') 

WRITE(6,3625) I, DZAM, LENGTH, X, Y, 2, SYMCOD 
FORMAT(/ 


7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 


( 2 ) 

(3) 

(4) 


(5) 


( 6 ) 


** WING ENGINE POD NUMBER ',11,' **'// 

(1) ENGINE DIAMETER (FT).',F6.2/ 

ENGINE LENGTH (FT).',F6.2/ 

X LOCATION OF POD, RELATIVE TO THE WING LE,'/ 

AS A FRACTION OF LOCAL CHORD.',F5.2/ 

Y LOCATION OF CENTER OF POD MEASURED FROM'/ 

FUSELAGE CENTERLINE, AS A FRACTION OF '/ 

WING SEMI-SPAN.',F3.1/ 

2 LOCATION OF WING POD, GIVEN AS A FRACTION'/ 

OF MAXIMUM POD DIAMETER, RELATIVE TO WING...',F5.2/ 

( <0 IF POD IS BELOW WING, >0 IF ABOVE)'/ 

WING POD SYMMETRY.',11/ 

(0 - WING POD HAS IMAGE ON OPPOSITE WING)'/ 

(1 - WING POD DOES NOT HAVE AN IMAGE)'// 

SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,21,ERR-3620) NUM 
IF (NUM.E(3.0) GOTO 3670 

GOTO (3630, 3640, 3645, 3650, 3660, 3665) ,NUM 
GOTO 3620 
WRITE(6,3631) 

FORMAT(/7X,'ENTER THE POD DIAMETER (FEET): ',$) 
READ(5,3635,ERR-3630) DIAM 

ZF((DIAM.LE.0.0).OR.(DIAM.GT.30.0)) GOTO 3630 
FORMAT(F6.2) 

GOTO 3620 
WRITE(6,3641) 

FORMAT(/7X,'ENTER THE POD LENGTH (FEET): ',$) 
READ(5,3635,ERR-3640) LENGTH 

IF((LENGTH.LE.0.0).OR.(LENGTH.GT.40.0)) GOTO 3640 
GOTO 3620 
WRITE(6, 3646) 

FORMAT(/7X,'ENTER THE X LOCATION OF THE WING POD'/ 

7X,'RELATIVE TO THE LEADING EDGE OF THE WING'/ 

7X,'AS A FRACTION OF THE LOCAL CHORD (POSITIVE'/ 

7X, • BEHIND THE LE) ; ',$) 

READ(5,2460,ERR-3645) X 

IF((X.LT.-l.O).OR.(X.GT.1.0)) GOTO 3645 

GOTO 3620 

WRITE(6,3651) 

FORMAT(/7X,'ENTER THE Y LOCATION OF THE WING POD'/ 
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£ 7X,'RELATIVE TO THE FUSELAGE CENTERLINE AS A'/ 

£ 7X,'FRACTION OF THE WING SEMI-SPAN: ',$) 

REAr>(5,3655,ERR-3650) Y 
3655 FORMAT(F3,l) 

IF((Y.LT.0.0).OR.(Y.GT.1.0)) GOTO 3650 
GOTO 3620 

3660 WRITE(6,3661) 

3661 FORMAT(/7X,'ENTER THE Z LOCATION OF THE WING POD'/ 

£ 7X,'RELATIVE TO THE WING, AS A FRACTION OF THE'/ 

£ 7X,'MAXIMUM POD DIAMETER: ',$) 

READ(5,2460,ERR-3660} Z 

IF((Z.LT.-2.0).OR.(Z.GT.2.0)) GOTO 3660 

GOTO 3620 

3665 WRITE(6,3666) 

3666 FORMAT(/7X,'ENTER THE WING POD SYMMETRY CODE:'/ 

£ 7X,'(0 - POD HAS AN IMAGE ON OPPOSITE WING)'/ 

£ 7X,'(1 - POD DOES NOT HAVE AN IMAGE) ',$) 

READ(5,2940,ERR-3665) SYMCOD 

IF((SYMCOD.NE.O).AND.(SYMCOD.NE.l)) GOTO 3665 
GOTO 3620 

3670 WRITE(7,3671) DIAM, LENGTH, X, Y, Z, OUTCOD, SYMCOD 

3671 FORMAT(' $WPOD'/5X,'DIAM-',F6.2,',',3X,'LENGTH-',F6.2,',', 
£ IX, ' X-' , F5.2, ' , ' /5X,' Y-' , F3.1, ' , ' , 9X, ' Z-' , F5.2, ' , ' , 

£ 7X,'OUTCOD-',II,','/5X,'SYMCOD-',II,','/5X,'SEND') 

3690 CONTINUE 


- FUSELAGE POD GEOMETRY 


3700 IF(FPOD.EQ.'NO') GOTO 3800 

3702 STATUS - LIB$SPAWN('CLS') 

WRITE(6,3703) 

3703 FORMAT(//7X,'ENTER THE NUMBER OF FUSELAGE PODS. IF THE PODS'/ 

£7X,'ARE SYMMETRI<yu.LY MOUNTED AROUND THE FUSELAGE, JUST'/ 

£7X,'ENTER THE NUMBER OF PODS ON ONE SIDE OF THE AIRCRAFT AND'/ 
£7X,'SELECT THE POD SYMMETRY CODE. (A MAXIMUM TOTAL OF'/ 

£7X,'10 PODS MAY BE USED'// 

£7X,'NUMBER OF PODS: ',$) 

READ(5,2411,ERR-3602) PODNUM 

IF((PODNUM.GT.10) .OR.(PODNUM.lt. 1)) GOTO 3702 
DO 3790 1-1,PODNUM 

IF((DVFLAG.EQ..TRUE.).OR.(FPODFL.EQ.l)) THEN ! SET DEFAULTS 
DIAM-3.0 
LENGTH-10.0 
SOD-0.1 
THETA-0.0 
X-0.8 
OUTCOD-2 
SYMCOD-0 
ELSE 

IF(I.EQ.l) REWIND(IO) 

3710 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN ! OLD SFPOD NOT FOUND. SET DEFAULTS 

FPODFL-1 

DIAM-3.0 

LENGTH-10.0 

SOD-0.1 

THETA-0.0 

X-0.8 

OUTCOD-2 

SYMCOD-0 
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3715 

£ 


3720 

3725 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 

£ 


3730 

3731 


3740 

3741 


3745 

3746 

£ 

£ 

£ 


3750 

3751 

£ 

£ 

£ 


3760 

3761 


ELSE 

ir(ANS.NE.' $FPOD') GOTO 3710 

READ(10,3715) DIAM, LENGTH, SOD, THETA, X, OUTCOD, STMCOD 
FORMAT(lOX,F6.2,IIX,F6.2,6X,F5.2/llX,F5.2,6X,F3.1,17X, 11/ 
12X,I1) 

ENDXF 

ENDIF 

STATUS - LIB$SPAWN('CLS') 

WRITE(6,3725) I, DIAM, LENGTH, SOD, THETA, X, STMCOD 
FORMAT(/ 


7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 

7X, 


** FUSELAGE ENGINE POD NUMBER ',11, ' **'// 


(1) ENGINE POD DIAMETER (FT).',F6.2/ 

(2) ENGINE POD LENGTH (FT).',F6.2/ 

(3) STAND-OFF DISTANCE.',F5.2/ 

(0.0 - COTANGENT POD)'/ 

(-1.0 - SEMI-BURIED POD)'/ 

(-2.0 - FULLY BURIED POD)'/ 

(4) ANGULAR ORIENTATION OF POD (DEG).',F5.2/ 

(0.0 DEG - POD IS MOUNTED AT 3 OCLOCK)'/ 

(90 DEG - POD IS MOUNTED ON TOP OF FUSELAGE)'/ 

(5) X LOCATION OF THE LE OF POD, RELATIVE TO THE'/ 

NOSE OF THE FUSELAGE, GIVEN AS A FRACTION OF'/ 

THE FUSELAGE LENGTH.',F3.1/ 

(6) WING POD SYMMETRY.',11/ 

(0 - WING POD HAS IMAGE ON OPPOSITE WING)'/ 

(1 - WING POD DOBS NOT HAVE AN IMAGE)'// 

'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 

READ(5,21,ERR-3720) NUM 
IF(NUM.EQ.O) GOTO 3770 

GOTO (3730, 3740, 3745, 3750, 3760, 3765) ,NUM 
GOTO 3720 
WRITE(6,3731) 

FORMAT(/7X,'ENTER THE POD DIAMETER (FEET); ',$) 
READ(5,3635,ERR-3730) DIAM 

IF((DIAM.LB.0.0).OR.(DIAM.GT.30.0)) GOTO 3730 
GOTO 3720 
WRITE(6,3741) 

FORMAT(/7X,'ENTER THE POD LENGTH (FEET): ',$) 
READ(5,3635,ERR-3740) LENGTH 

IF((LENGTH.LE.0.0).OR.(LENGTH.GT.40.0)) GOTO 3740 
GOTO 3720 
WRITE(6, 3746) 

FORMAT(/7X,'ENTER THE POD STAND-OFF DISTANCE'/ 

7X,'(0.0 - COTANGENT POD)'/ 

7X,'(-1.0 - SEMI-BURIED POD)'/ 

7X,'(-2.0 - FULLY BURIED POD): ',$) 

READ(5,2460,ERR-3745) SOD 

IF((SOD.LT,-2,0).OR.(SOD.GT.3.0)) GOTO 3745 
GOTO 3720 
WRITE(6,3751) 

FORMAT(/7X,'ENTER THE ANGULAR ORIENTATION OF THE FUSELAGE'/ 

7X,'POD AS SEEN FROM THE FRONT OF THE AIRCRAFT.'/ 

7X,'0.0 ■» 3 OCLOCK POSITION'/ 

7X,'90.0 - 12 OCLOCK POSITION: ',$) 

READ(5,2460,BRR-3750) THETA 

IF((THETA.GT.90.0).OR. (THSTA.lt. -90,0)) GOTO 3750 
GOTO 3720 
WRITE(6,3761) 

FORMAT(/7X,'ENTER THE X LOCATION OF THE LEADING EDGE OF'/ 

7X,'THE FUSELAGE POD, RELATIVE TO THE AIRCRAFT NOSE, AS'/ 
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& 7X,'A FRACTION OF THE FUSELAGE LENGTH: ',$) 

READ(5,3762,ERR-3760) X 
IF((X.LT.0.0).OR.(X.GT.1.0)) GOTO 3760 

3762 FORMAT(F3.1) 

GOTO 3720 

3765 WRITE(6,3766) 

3766 FORMAT(/7X,'ENTER THE FUSELAGE POD SYMMETRY CODE:'/ 

& 7X,'(0 - POD HAS AN IMAGE ON OPPOSITE SIDE)'/ 

& 7X,'(1 - POD DOES NOT HAVE AN IMAGE) ',$) 

READ(5,2940,ERR-3765) SYMCOD 
IF((SYMCOD.NE.O).AND.<SYMCOD.NE.1)) GOTO 3765 
GOTO 3720 

3770 WRITE(7,3771) DIAM, LENGTH, SOD, THETA, X, OUTCOD, SYMCOD 

3771 FORMAT(' $FPOD'/5X,'DIAM-',F6.2,',',3X,'LENGTH-',F6.2,',', 
& IX, ' SOD-',F5.2,','/5X,'THETA-',F5.2,',',3X, 'X-' ,F3.1,',', 

& 9X,'OUTCOD-',11,','/5X,'SYMCOD-',II,','/5X,'$END') 

3790 CONTINUE 


- FUSELAGE GEOMETRY 


3800 IF<DVFLAG.EQ..TRUE.) THEN ! SET $FUS DEFAULTS 

BDMAX-5.0 
BODL-50.0 
DRADAR-0.0 
FRAB-2.0 
FRATIO-0.0 
FRN-3.0 
LRADAR-0.0 
SFFACT-1.0 
WALL-0.0 
WFUEL-5000.0 
OUTCOD-2 
ITAIL-0 

ELSE ! GET THE OLD VALUES 

REWIND<10) 

3805 READ(10,26) ANS 

IF(AN5.EQ.'$$$$$$') THEN ! OLD $FUS NOT FOUND. SET DEFAULTS 
BDMAX-5.0 
BODL-50.0 
DRADAR-0.0 
FRAB-2.0 
FRATIO-0.0 
FRN-3.0 
LRADAR-0.0 
SFFACT-1.0 
WALL-0.0 
WFUBL-5000.0 
OUTCOD-2 
ITAIL-0 
ELSE 

IF(ANS.NE.' $FUS ') GOTO 3805 

READ(10,3810) BDMAX, BODL, DRADAR, FRAB, FRATIO, FRN, LRADAR, 
& SFFACT, WALL, WFUEL, OUTCOD, ITAIL 

3810 FORMAT(11X,F5.2,9X,F6.2,11X,F5.2/10X,F5.2,12X,F5,2,7X,F5.2/ 

& 12X,F5.2,lOX,F5.2,8X,F5.2/llX,F8.1,8X,II,13X, II) 

ENDIF 

ENDIF 

3815 STATUS - LIB$SPAWN('CLS') 

WRITE(6,3820) BDMAX, BODL, DRADAR, FRAB, FRATIO, FRN, LRADAR, 
SSFFACT, WALL, WFUEL, ITAIL 
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3820 FOR»4AT(/ 

&7X,rUSEIAGE GEOfflTRY **'// 

&7X,'(1) MAXIMUM FUSELAGE DXAMETBR (FT).',F5.2/ 

fi7X, ' (2) FUSELAGE LENGTH (FT).' , F6.2/ 

&7X, ' (3) DIAMETER OF NOSE RADAR DISH (FT).',**5.2/ 

&7X,M4) AFTERBODY FINENESS RATIO (LEN6TH/DIAM)_',F5.2/ 

&7X,'(5) FUSELAGE FINENESS RATIO (LENGTH/DIAM).',F5.2/ 

&7X,'(6) NOSE FINENESS RATIO (LENGTH/DIAM). ',F5.2/ 

£7X,'(7) LENGTH OF RADAR EQUIP BEHINU RADAR (FT)...',F5.2/ 

47X, ' (8) SURFACE AREA COMPLEXITY FACTOR.',F5.2/ 

&7X,M9) fuselage NALL THICKNESS (FT)'/ 

S7X, ' (TRANSPORTS ONLY).' , F5.2/ 

&7X,'(10) MISSION FUEL WEIGHT ESTIMATE (LBS)_',F8.1/ 

47X,'(11) TAIL TYPE.',11/ 


67X,' (0 - ENGINE NOZZLE AT REAR OF FUSELAGE)'/ 

67X,' (1 - FUSELAGE TAPERS DOWN WITHOUT A NOZZLE)'// 

&7X,'SELECT A VALUE TO CHANGE OR 0 TO QUIT: ',$) 
REAO(5,2411,BRR-3815) NUM 
IF(NUM.EQ.O) GOTO 3885 

GOTO (3825, 3830, 3835, 3840, 3845, 3850, 3855, 3860, 3865, 
&3870, 3880), NUM 
GOTO 3815 

3825 WRITE(6,3826) 

3826 FORMAT(/7X,'ENTER THE MAXIMUM DIAMETER OF THE FUSELAGE: ',$) 
READ(5,2460,ERR-3825) BDMAX 

IF(BOMAX.LE.O.O) GOTO 3825 
GOTO 3815 

3830 WRITE(6,3831) 

3831 FORMAT(/7X,'ENTER THE FUSELAGE LENGTH (FT): ',$) 
READ(5,2475,ERR-3830) BODL 
IF(BODL.LE.O.O) GOTO 3830 

GOTO 3815 

3835 WRITE(6,3836) 

3836 FORMAT(/7X,'ENTER THE DIAMETER OF THE NOSE MOUNTED'/ 

&7X,'RADAR DISH (FT): ',$) 

READ(5,2460,ERR-3835) DRADAR 

IF((DRADAR.lt.0.0).OR.(DRADAR.GT.20.0)) GOTO 3835 
GOTO 3815 

3840 WRITE(6,3841) 

3841 FORMAT(/7X,'ENTER THE FINENESS RATIO OF THE AFTERBODY'/ 

&7X,'(AFTERBODY LENGTH/DIAMETER): ',$) 

READ(5,2460,ERR-3840) FRAB 

IF((FRAB.LT.0.0).OR.(FRAB.GT.99.99)) GOTO 3840 
GOTO 3815 

3845 WRITE(6,3846) 

3846 FORMAT(/7X,'ENTER THE TOTAL FUSELAGE FINENESS RATIO'/ 

&7X,' (FUSELAGE LENGTH/MAX DIAMETER): ',$) 

READ(5,2460,ERR-3845) FRATIO 

IF((FRATIO.lt.0.0).OR.(FRATIO.GT.99.99)) GOTO 3845 
GOTO 3815 

3850 WRITE(6,3851) 

3851 FORMAT(/7X,'ENTER THE FINENESS RATIO OF THE NOSE'/ 
fi7X,'(NOSE LENGTH/DIAMETER): ',$) 

READ(5,2460,ERR-3850) FRN 

IF((FRN.LT.0.0).OR.(FRN.GT.99.99)) GOTO 3850 
GOTO 3815 

3855 WRITE(6,3856) 

3856 FORMAT(/7X,'ENTER THE LENGTH OF THE RADAR EQUIPMENT THAT'/ 
&7X,'IS LOCATED BEHIND THE RADAR (FT): ',$) 

READ(5,2460,ERR-3855) LRADAR 
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IF((LRADAR.lt.0.0).OR.(LRADAR.GT.30.0)) GOTO 3855 
GOTO 3815 

3860 WRITE(6,3861) 

3861 FORMAT(/7X,'ENTER THE FUSELAGE SURFACE AREA'/ 

&7X, ' COMPLEXITY FACTOR: ',$) 

READ(5,2460,ERR-3860) SFFACT 

IF((SFFACT.LE.0.0).OR.(SFFACT.GT.2.0)) GOTO 3860 
GOTO 3815 

3865 WRITE(6,3866) 

3866 FORMAT(/7X,'ENTER THE THICKNESS OF THE FUSELAGE WALL (FT)'/ 
S7X,'(USED FOR TRANSPORT AIRCRAFT ONLY): ',$) 

READ(5,2460,ERR-3865) WALL 

IF((WALL.LT.0.0).OR.(WALL.GT.1.0)) GOTO 3865 
GOTO 3815 

3870 WRITE(6,3871) 

3871 FORMAT(/7X,'ENTER AN ESTIMATE FOR THE MISSION FUEL'/ 
fi7X,'WEIGHT (LBS): ',$) 

RBAD(5,3875,ERR-3870) WFUEL 
3875 FORMAT(F8.1) 

IF(WFUEL.lt.0.0) GOTO 3870 
GOTO 3815 

3880 WRITE(6, 3881) 

3881 FORMAT(/7X,'ENTER THE TAIL INDICATOR'/ 

&7X,'(0 - ENGINE NOZZLE AT REAR OF FUSELAGE)'/ 

&7X,'(1 - FUSELAGE TAPERS DO'^ WITHOUT A NOZZLE): ',$) 
REAO(5,2940,ERR-3880) ITAIL 
IF((ITAIL.NE.O).AND.(ITAIL.NE.l)) GOTO 3880 
GOTO 3815 

3885 WRITE(7,3886) BDMAX, BODL, DRADAR, FRAB, FRATIO, FRN, LRADAR, 
&SFFACT, WALL, WFUEL, OUTCOD, ITAIL 

3886 FORMAT(' $FUS'/5X,'BDMAX-',F5.2,',',3X,'BODL-',F6.2, ' , ' , 3X, 

4' DRADAR-',F5.2,','/5X,'FRAB-',F5.2,',',4X,'FRATIO-',F5.2,',', 
42X,'FRN-',F5.2,','/5X,'LRADAR-',F5.2,',',2X,'SFFACT-',F5.2, 

4',' ,2X,'WALL-',F5.2,','/5X,'WFUEL-',F8.1,',','OUTCOD-',11,',', 
4 6X,'ITAIL-',11,','/5X,'SEND') 

GOTO 4100 

C- 

C-CREW STATION GECMffiTRY 

C- 

4100 IF(CREW.EQ.'NO') GOTO 4300 
IF(DVFLAG.EQ..TRUE.) THEN 
LENGTH-0.0 
WIDTH-0.0 
NCREW-2 
OUTCOD-2 
TAND-.FALSE. 

ELSE 

REWIND(10) 

4105 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN 
LENGTH-0.0 
WIDTH-0.0 
NCREW-2 
OUTCOD-2 
TAND-,FALSE. 

ELSE 

IF(ANS.NE.' SCREW') GOTO 4105 

READ(10,4110) LENGTH, WIDTH, NCREW, OUTCOD, TAND 
4110 FORMAT(12X,F6.2,8X,F6.2,9X,I2/12X,I1,12X,L1) 

ENDIF 
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ENDIF 

4115 STATUS - LIB$SPAWN('CLS') 

WRITE(6,4120) LENGTH, WIDTH, NCREW, TAND 


4120 FORMAT(/ 

t7X,'** CREW STATION GEOfflTRY **'// 

t7X,' (1) LENGTH OF CREW STATION (FT).',F6.2/ 

«7X,'(2) WIDTH OF CREW STATION (FT).',F6.2/ 

&7X,M3) NUMBER OF CREWMEMBERS.',12/ 

&7X,'(4) SEATING ARRANGEMENT.',L1/ 

«7X,' (T - TANDOM SEATING)'/ 

47X,' (F - 2 ABREAST SEATING)'// 


47X,'SELECT THE VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,2940,ERR-4115) NUM 
IF(NUM.EQ.O) THEN 

WRITE(7,4130) LENGTH, WIDTH, NCREW, OUTCOD, TAND 
4130 FORMAT(' SCREW'/5X, 'LENGTH-',FS.2,' , ',IX,'WIDTH-',F6.2,',',2X, 

& 'NCREW-',12,','/5X,'OUTCOD-',II,',',6X,'TAND-',LI,','/5X,'SEND' 

GOTO 4300 
ENDIF 

GOTO (4140, 4150, 4160, 4170) ,NUM 
GOTO 4115 
4140 WRITE(6,4145) 

4145 FORMAT(/7X,'ENTER THE LENGTH OF THE CREW STATION (FT).'/ 

47X,'IF 0.0 IS ENTERED, ACSYNT WILL SIZE IT: ',S) 
READ(5,2475,ERR-4140) LENGTH 

IF((LENGTH.LT.0.0).OR.(LENGTH.GT.30.0)) GOTO 4140 
GOTO 4115 
4150 WRITE(6,4155) 

4155 FORMAT(/7X,'ENTER THE WIDTH OF THE CREW STATION.'/ 

£7X,'IF 0.0 IS ENTERED, ACSYNT WILL SIZE IT: ',S) 
READ(5,2475,ERR-4150) WIDTH 

IF((WIDTH.LT.0.0).OR.(WIDTH.GT.20.0)) GOTO 4150 
GOTO 4115 
4160 WRITE(6,4165) 

4165 FORMAT(/7X,'ENTER THE NUMBER OF CREWMEMBERS: ',S) 
READ(5,2411,ERR-4160) NCREW 
IF(NCREW.LT.O) GOTO 4160 
GOTO 4115 
4170 WRITE(6, 4175) 

4175 FORMAT(/7X,'ENTER THE SEATING ARRANGEMENT.'/ 

47X,'(T - TANDEM SEATING)'/7X,'(F - 2 ABREAST SEATING): ',S) 
R£AD(5,3105,ERR-4170) TAND 
GOTO 4115 

FUSELAGE FUEL BAYS 

4300 IF(FUEL.EQ.'NO') GOTO 4700 
STATUS - LIB$SPAWN('CLS') 

4301 WRITE(6,4305) 

4305 FORMAT(// 

fi7X,'HOW MANY FUSELAGE FUEL BAYS ARE THERE ?'// 
fi7X,'(1) ONE FUEL BAY'/7X,'(2) TWO FUEL BAYS'// 

67X,'SELECT 1 OR 2: ',S) 

R£AD(5,2940,ERR-4301) NUM 
GOTO (4350, 4500) NUM 
GOTO 4301 

C - 1 FUEL BAY 

4350 IF(DVFLAG.EQ..TRUE.) THEN 
DEN-48.62 
FRAC-1.0 
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WFUEL-O.0 
OUTCOD-2 
ELSE 

REWIND(10) 

4355 READ(10, 26) ANS 

IF(ANS.BQ.'$$$$$$') THEN 
DEN-50. 

FRAC-1.0 
OUTCOD-2 
ELSE 

IF(ANS.HE.' $FUEL') GOTO 4355 
READ(10,4360) DEN, FRAC, WFDEL, OUTCOD 
4360 FORMAT(9X,F5.2,IIX,F4.2,12X,F8.1/12X,11) 

FRAC-1.0 ! ONLY ONE FUEL BAY HERE 

ENDIF 
ENDIF 

4365 STATUS - LIBSSPAWN('CLS') 

WRITE(6,4370) DEN 
4370 FORMAT(/ 

47X,'** FUSELAGE FUEL BAY **'// 

&7X,'(1) FUEL DENSITY (LBS/FT3).',F5.2// 

67X'SELECT THE VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,2940,ERR-4365) NUM 
IF(NUM.EQ.O) THEN 

WRITE(7,4375) DEN, FRAC, WFUEL, OUTCOD 
4375 FORMAT(' $FUEL'/5X,'DEN-',F5.2,',',5X,'FRAC-',F4.2,',',5X, 
& 'WFUEL-',F8.1,','/5X,'OUTCOD-',11,','/5X,'$END') 

GOTO 4700 
ENDIF 

GOTO (4380) ,NUM 
GOTO 4365 
4380 WRITE(6,4385) 

4385 FORMAT(/7X,'ENTER THE FUEL DENSITY (LB/FT3): ',$) 
READ(5,2460,ERR-4380) DEN 
IF(DEN.LT.0.0) GOTO 4380 
GOTO 4365 

C - 2 FUEL BAYS 

4500 CONTINUE 

IF (DVFLAG. EQ. . TRX7E.) THEN 
DENl-50. 

OEN2-50. 

FRAC-0.5 
WFUEL-0.0 
OUTCOD-2 
ELSE 

REWIND(10) 

4505 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN 
DENl-48.62 
0EN2-48.62 
FRAC-0.5 
WFUEL-0.0 
OUTCOD-2 
ELSE 

IF(ANS.NE.' $FUEL') GOTO 4505 
READ(10,4510) DENI, FRAC, WFUEL, OUTCOD 
4510 FORMAT(9X,F5.2,IIX,F4.2,12X,F8.1/12X,II) 

FRAC-0.5 ! 2 FUEL BAYS HERE 

4515 READ(10,26) ANS 

IF(ANS.EQ.'$$$$$$') THEN 
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DEN2-50.0 
ELSE 

IF(ANS.NE.' $FUEL') GOTO 4515 
READ(10,4520) DEN2 
4520 FORMAT(9X,F5.2) 

ENDXF 

ENDIF 

ENDXF 

4530 STATUS - LIB$SPAWN('CLS') 

NRXTE(6,4535) DENI, DEN2 
4535 FORMAT</ 

S7X,FUSELAGE FUEL BAY GEOMETRY **'// 

&7X, Ml) FUEL DENSITY XN FUEL BAY NUMBER 1 (LB/FT3) . . . ' , F5.2/ 
S7X,M2) fuel DENSXTY XN FUEL BAY NUMBER 2 (LB/FT3) . . .' , F5.2// 

«7X,'SELECT THE VALUE TO CHANGE OR 0 TO CONTXNUE: ',$) 
R£AD(5,2940,ERR-4S30) NUM 
XF(NUM.BQ.O) THEN 

NRXTE(7,4540) DENI, FRAC, WFUEL, OUTCOD, DBN2, FRAC, NFUEL, 

« OUTCOD 

4540 FORMAT(' $FUEL'/5X,'DEN-',F5.2,',',5X,'FRAC-',F4.2,',',5X, 

& 'WFUEL-',F8.1,','/5X,'OUTCOD-',II,','/5X,'$EHD'/ 

C ' $FUEL'/5X,'DEN-',F5.2,',',5X,'rRAC-',F4.2,',',5X, 

« 'WFUEL-',F8.1,','/5X,'OUTCOD-',XI,','/5X,'$END') 

GOTO 4700 
ENDXF 

GOTO (4550, 4560) ,NDM 
GOTO 4530 
4550 WRITE(6,4555) 

4555 FORMAT(/7X,'ENTER THE FUEL DENSITY XN BAY NUMBER 1 (LB/FT3): ',$) 
READ(5,2460,ERR-4550) DENI 
IF(DENI.LT.0.0) GOTO 4550 
GOTO 4530 
4560 WRITE(6,4565) 

4565 FORMAT(/7X,'ENTER THE FUEL DENSITY XN BAY NUMBER 2 (LB/FT3): ',$) 
READ(5,2460,BRR-4560) DEN2 
IF(DEN2.lt.0.0) GOTO 4560 
GOTO 4530 
4700 WRITE(7,4705) 

4705 FORMAT(80('$')) 

RETURN 

END 

C- 

C - THIS SETS THE $WXNG NAMELIST DEFAULT VALUES 

SUBROUTINE WINGDV(AR,AREA,DXHED,FDENWG,LFLAPC,SWEEP,SWFACT, 
4TAPBR,TCROOT,TCTXP,TFLAPC,WFFRAC,XWXN6,ZROOT,KSWBBP,OUTCOD) 

REAL LFLAPC 
INTEGER OUTCOD 
AR-5,0 
AREA-500.0 
DXHED-0.0 
FDENWG-48.62 
LFLAPC-0.12 
SWEEP-0.0 
SWFACT-1.0 
TAPER-0.99 
TCROOT-0.1 
TCTXP-0.1 
TrLAPC-0.12 
WFFRAC-l.0 
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non 


XWlNG-0.5 
ZROOT-0.0 
KSHEEP-0 
OOTCOD-2 
RETURN 


END 



- TRAJECTORY MODULE 


LOGICAL DVFLAG, LENVEL 

CHARACTER ANS*6, PHASE*8, TZTLE*80 

INTEGER STATUS, LIB$SPAWN, SALT, EALT, W, B, A, P 

REAL MEND'TR 

DIMENSION PHASE(12), SMACH(12), EMACH(12), SALT(12), EALT(12), 
&DIST(12), TIME(12), TURNS(12), VIND(12), HKFUEL(12), M(12), 
&IP(12), IX(12), W(12), B(12), A(12), P(12) 

IF(DVFLAG.EQ..FALSE.) THEN ! OPTION TO BYPASS TRAJECTORY 

4000 STATUS - LIB$SPAHN('CLS') 

WRITE(6,4001) 

4001 FORMAT(// 

& 7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE TRAJECTORY'/ 

i 7X,'MODULE ?'//7X,'(1) YES'/7X,'(2) NO'// 

& 7X,'SELECT 1 OR 2: ',$) 

READ(5,4004,ERR-4000) NUM 

4004 FORMAT(II) 

IF((NUM.NE.l).AND.(NUM.NE.2)) GOTO 4000 
IF(NOM.EQ.l) GOTO 5007 

C - TRANSFER TRAJECTORY DATA FROM (10) TO (7) 

REWIND(10) 

5000 READ(10,5001) ANS 

5001 FORMAT(A6) 

IF(ANS.NE.'$$$$$$') GOTO 5000 

5003 READ(10,5004) TITLE 

5004 FORMAT(A80) 

IF(TITLE(1:6).EQ.'*** AE') RETURN 
WRITE(7,5004) TITLE 
GOTO 5003 
ENDIF 

5007 IF(DVFLAG.EQ..TRUE.) THEN ! SET TRAJECTORY DEFAULTS 

CALL TRAJDV(CRMACH,DECEL,DELHP,DELMP,DESLF,FLFAC,FRFURE,FWGMAX, 

& HMAXP,HMINP,MENDUR,QMAX,RANGE,SMMAXP,SMMINP,TIMTOl,TIMT02, 
i TOL,ULTLF,WCOMBP,WFEXT,WFTRAP,WFUEL,WKF,WKLAND,XDESC,IBREG, 

& lENDUR, IPLOT, i.P3IZE, IPRINT, TPSTOl, IPS’T'02, KERROR,MILCOM,MMPROP, 

& NCODE,NCRUSE,LENVEL) 

NUMPHA-l 

ELSE 

REWIND (10) 

5008 READ(10,5001) ANS 

IF(ANS.NE.' $TRDA') GOTO 5008 

C - WKF-WKFUEL REQUIRED DUE TO ARRAY USED FOR WKFUEL IN PHASES 

READ(10,5010)CRMACH,DECEL,DELHP,DELMP,DESLF,FLFAC, FRFURE, FWGMAX, 
& HMAXP, HMINP , MENDUR, ^4AX, RANGE, S^®1AXP, SMMINP , TIMTOl, TIMT02, 

& TOL,ULTLF,WCOMBP,WFEXT,WFTRAP,ffFUEL,WKF,WKLAND,XDESC,IBREG, 

6 lENDUR,IPLOT,IPSIZE,IPRINT,IPSTOl,IPST02,KERROR,MILC<»l,MMPROP, 

& NCODE,NCRUSE,LENVEL,NUMPHA 

5010 FORMAT(12X,F4.2,lOX,F4.2,IIX,F6.1/llX,F3.1,12X,F5.2,lOX,F3.1/ 

& 12X,F4.2,11X,F3.1,11X,F7.1/11X,F3.1,13X,F4.2,9X,F6.1/ 

& llX,r7.1,9X,F3.1,12X,F3.1/12X,F5.2,10X,F5.2,7X,F5.3/ 
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6 IIX,rs.2,lix,F5.3,9X,F7.1/12X,F6.1,8X,F8.1,8X,F6.4/ 

& 12X,F4.2,lOX,F5.1,lOX,I1/12X,II,13X,II,15X,12/ 

£ 12X, II,14X,II,14X,I1/12X,II,14X,II,14X,11/ 

& 11X,I1,15X,I2,13X,L1//I10) 

NPHASE-NUMFHA fNFHASE IS THE ORIGINAL NUMBER OF PHASES FROM (10) 
ENDIF 

- TRAJECTORY PAGE 1 

5020 STATUS - LIBSSPANN('CLS') 

WRITE(6,5025) CRMACH, MENDUR, OESLF, ULTLF, RANGE, MILCOM 

5025 FORMAT(/ 

67X,'** TRAJECTORY DATA: PAGE 1 **'// 

67X, ' (1) CRUISE MACH NUMBER.',F4.2/ 

«7X,'(2) APPROXIMATE MACH NUMBER FOR MAX ENDURANCEF4.2/ 

47X,M3) design LOAD FACTOR (G"S).',F5.2/ 

67X,'(4) ULTIMATE LOAD FACTOR (G"S). ',F5.2/ 

47X,'(5) aircraft RANGE (NM). ' ,ri .\/ 

47X,'(6) MAXIMUM DYNAMIC PRESSURE (LBS/FT2).',F6.1/ 

S7X, M7) TAKEOFF OBSTACLE REQUIREMENT.',11/ 

£7X,' (0 - MILITARY AIRCRAFT)'/ 

fi7X,' (1 - CIVILIAN AIRCRAFT)'// 

fi7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
REAO(5,4004,ERR-5020) NUM 
IF(NUM.EQ.O) GOTO 5150 

GOTO (5050, 5060, 5070, 5080, 5090, 5100, 5110) ,NUM 
GOTO 5020 
5050 WRITE(6,5055) 

5055 FORMAT(/7X,'ENTER AN ESTIMATE FOR THE CRUISE MACH NUMBER: ',$) 
READ(5,5056,ERR-5050) CRMACH 

5056 FORMAT(F4.2) 

IF((CRMACH.LE.0.0).OR.(CRMACH.GT.3.0)) GOTO 5050 
(SOTO 5020 
5060 WRITE(6,5065) 

5065 FORMAT(/7X,'ENTER AN ESTIMATE FOR THE MACH NUMBER AT'/ 

&7X,'MAX ENDURANCE: ',$) 

READ(5,5056,ERR-5060) MENDUR 

IF((MENDUR.LT.0.0).OR.(MENDUR.GT.2.0)) GOTO 5060 
GOTO 5020 
5070 WRITE(6,5075) 

5075 FORMAT(/7X,'ENTER THE DESIGN LOAD FACTOR (G"S): ',$) 
READ(5,5056,ERR-5070) DESLF 

IF((DESLF.lt.1.0).OR.(DESLF.GT.12.0)) GOTO 5070 
GOTO 5020 
5080 WRITE(6,5085) 

5085 FORMAT(/7X,'ENTER THE ULTIMATE LOAD FACTOR (G"S): ',$) 
READ(5,5086,ERR-5080) ULTLF 

5086 FORMAT(F5.2) 

IF((ULTLF.LT.1.0).OR.(ULTLF.GT.15.0)) GOTO 5080 
GOTO 5020 
5090 WRITE(6,5095) 

5095 FORMAT(/7X,'ENTER AN ESTIMATE FOR THE AIRCRAFT'/ 

&7X,'MAX RANGE (NM) : ',$) 

READ(5,5096,ERR-5090) RANGE 

5096 FORMAT(F7.1) 

IF(RANGE.LE.0.0) GOTO 5090 
GOTO 5020 
5100 WRITE(6,5105) 

5105 FORMAT(/7X,'ENTER THE DESIGN MAXIMUM DYNAMIC PRESSURE (LB/FT2) 

',$) 
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READ(5,5106,ERR-5100) QMAX 
IF(QMAX.LE.O.O) GOTO 5100 
5106 FORMAT(F6.1) 

GOTO 5020 
5110 WRITE(6,5115) 

5115 FORMAT</7X,'ENTER THE TAKEOFF OBSTACLE REQUIREMENT'/ 

S7X,'(0 - MILITARY AIRCRAFT, 1 - CIVILIAN AIRCRAFT): ',$) 
REAO(5,4004,ERR-5110) MILCOM 

IF((MILCOM.NE.O).AND.(MILCOM.NE.l)) GOTO 5110 
GOTO 5020 


C- 

C - TRAJECTORY PAGE 2 

5150 STATUS - LIB$SPAMN('CLS') 

WRITE(6,5155) TIMTOl, IPSTOl, TIMT02, IPST02, IBREG, lENDUR 
5155 FORMAT(/ 

47X,'** TRAJECTORY PAGE 2 **'// 

fi7X,'(1) AMOUNT OF TIME DURING WARM-UP AND TAXI (MIN)...',F5.2/ 


47X,' (2) POWER SETTING DURING WARM-UP AND TAXI.'/II/ 

fi7X,'(3) AMOUNT OF TIME SPENT DURING TAKE-OFF (MIN).',F5.2/ 

&7X, ' (4) POWER SETTING DURING TAKE-OFF.'/II/ 

fi7X,'(5) BREGUET ALTITUDE SEARCH FLAG.'/II/ 

&7X,' (0 - NO SEARCH, 1 - SEARCH FOR RANGE '/ 

fi7X, ' OPTIMUM ALTITUDE)'/ 

S7X, ' (6) LOITER ALTITUDE SEARCH FLAG. ',11/ 

S7X,' 0 - NO SEARCH'/ 

&7X, ' 1 - SEARCH FOR BEST LOITER ALTITUDE'// 


47X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,4004,ERR-5150) NUM 
IF(NUM.EQ.O) GOTO 5300 

GOTO (5170, 5180, 5190, 5200, 5210, 5220) ,NUM 
GOTO 5150 
5170 WRITE(6,5175) 

5175 FORMAT(/7X,'ENTER THE AMOUNT OF TIME THAT WILL BE'/ 

47X,'SPENT DURING WARM-UP AND TAXI (MIN): ',$) 
READ(5,5086,ERR-5170) TIMTOl 
IF(TIMTOl.LE.0.0) GOTO 5170 
GOTO 5150 
5180 WRITE(6,5185) 

5185 FORMAT(/7X,'ENTER THE POWER SETTING THAT WILL BE USED'/ 
47X,'DURING WARM-UP AND TAXI.'/ 

47X,'(1 - MAX AFTERBURNER, 2 - MILITARY POWER'/ 

47X,' 3 - MAX CONTINUOUS, 4 - THRUST EQUALS DRAG'/ 

S7X,' 5 - IDLE POWER): ',$) 

READ(5,4004,ERR-5180) IPSTOl 
IF((IPSTOl.LT.l).OR.(IPSTOl.GT.5)) GOTO 5180 
GOTO 5150 
5190 WRITE(6,5195) 

5195 FORMAT(/7X,'ENTER THE AMOUNT OF TIME THAT WILL BE SPENT'/ 
47X,'DURING THE TAKE-OFF (MIN): ',$) 

READ(5,5086,ERR-5190) TIMT02 
IF(TIMTO2.LE.0.0) GOTO 5190 
GOTO 5150 
5200 WRITE(6,5205) 

5205 FORMAT(/7X,'ENTER THE POWER SETTING THAT WILL BE'/ 

47X,'USED DURING THE TAKE-OFF.'/ 

47X, ' (1 - MAX AFTERBURNER, 2 » MILITARY POWER'/ 

47X, ' 3 - MAX CONTINUOUS, 4 - THRUST EQUALS DRAG'/ 

47X,' 5 - IDLE POWER): ',$) 

READ(5,4004,ERR-5200) IPST02 
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IF((1PST02.lt.1).OR.(IPST02.GT.5)) GOTO 5200 
GOTO 5150 
5210 NRITE(6,5215) 

5215 FORMAT(/7X,'ENTER THE BREGUET ALTITUDE SEARCH FLAG. THIS'/ 
&7X,'WILL ENABLE ACSYNT TO DETERMINE THE RANGE-OPTIMUM'/ 
&7X,'ALTITUDE DURING THE CLIMB AND CRUISE PHASES OF THE'/ 
£7X,'TRAJECTORY. (0 - NO SEARCH, 1 - SEARCH): ',$) 
READ(5,4004,ERR-5210) IBREG 
IF((IBREG.NE.O).AND.(IBREG.NE.l)) GOTO 5210 
IBRE6-0 ! DISABLED AT THIS TIME 

GOTO 5150 
5220 WRITE(6,5225} 

5225 FORMAT(/7X,'ENTER THE LOITER ALTITUDE SEARCH FLAG. THIS'/ 
&7X,'WILL ENABLE ACSYNT TO DETERMINE THE TIME-OPTIMUM'/ 

«7X,'ALTITUDE DURING THE LOITER PHASE (0 - NO SEARCH,'/ 
67X,'l - SEARCH): ',$) 

READ(5,4004,BRR-5220) lENDUR 
IF((lENDUR.NE.O).AND.(lENDUR.NE.l)) GOTO 5220 
IENDUR-0 ! DISABLED AT THIS TIME 
GOTO 5150 


C - TRAJECTORY PAGE 3 

5300 STATUS - LIB$SPAWN('CLS') 

WRITE(6,5305) FRFURE, WFUEL, WFEXT, WFTRAP, IPSIZE, NCRUSE, 
fiNUMPHA, IPRINT 
5305 FORMAT(/ 

fi7X,'** TRAJECTORY PAGE 3 **'// 

«7X,' (1) FUEL RESERVE, AS A FRACTION OF TOTAL FUEL.',F4.2/ 


fi7X,'(2) TOTAL INTERNAL FUEL (LBS).',F8.1/ 

47X,'(3) EXTERNAL FUEL WEIGHT (LBS).',F7.1/ 

fi7X,'(4) WEIGHT OF TRAPPED FUEL (LBS).',F6.1/ 

«7X,'(5) ENGINE SIZING FLAG.',12/ 

47X,' (6) NUMBER OF TRAJECTORY CRUISE PHASES.',12/ 

47X,' (7) TOTAL NUMBER OF TRAJECTORY PHASES.',12/ 

S7X,'(8) DEBUG OPTION.',11// 


«7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,4004,ERR-5300) NUM 
IF(NUM.EQ.O) THEN ! WRITE STRDATA INFO 

WRITE(7,5310) CRMACH,DECEL,DELHP,DELMP,DESLF,FLFAC,FRFURE, 

& FWGMAX,HMAXP,HMINP,MENDUR,QMAX,RANGE,SMMAXP,SMMINP,TIMTOl, 

& TIMT02,TOL,ULTLF,WCOMBP,WFEXT,WFTRAP,WFUEL,WKF,WKLAND, 

& XDESC,IBREG,lENDUR,IPLOT,IPSIZE,IPRINT,IPSTOl,IPST02,KERROR, 
i MILCOM, tOlPROP , NCODE, NCRUSE, LENVEL, NUMP.HA 
5310 FORMAT(' STRDATA'/5X,'CRMACH-',F4.2,',',3X,'DECEL-',F4.2,',',4X, 
& ' DELHP-',F6.1,','/5X,'DELMP-',F3.1,',',5X,'DESLF-',F5.2,',',3X, 

& 'FLFAC-',F3.1,','/5X,'FRFURE-',F4.2,',',3X,'FWGMAX-',r3.1,',', 

& 4X,'HMAXP-',F7.1,','/5X,'HMINP-',F3.1,',',5X,'MENDUR-',F4.2, ',', 

& 3X,'QMAX-',F6.1,','/5X,'RANGE-',F7.1,',',IX,'SMMAXP-',F3.1,',', 

& 4X,'S»®11NP-',F3.1,','/5X,'TIMT01-',F5.2,',',2X,'TIMT02-',F5.2, 

& ', ' ,2X,'TOL-',F5.3,','/5X,'ULTLF-',F5.2,',',3X,'WCOMBP-',F5.3, 

& ',',2X,'WFEXT-',F7.1,','/5X,'WFTRAP-',F6.1,',',IX,'WFUEL-',F8.1, 

& ',','WKFUEL-',F6.4,','/5X,'WKLAND-',r4.2,',',3X,'XDESC-',F5.1, 

& ',',3X,'IBREG-',II,','/5X,'IBNDUR-',II,',',6X,'IPLOT-',11,',', 

£ 7X, 'IPSIZE-',12,','/5X,'IPRINT-',II,',',6X,'1PST01-',II,',',6X, 

& ' IPST02-',II, ' , ' /5X,' KERROR-',II,',',6X,'MILCC**-',11,',',6X, 

& 'MMPROP-',II,','/5X,'NCODE-',II,',',7X,'NCRUSE-',12,',',5X, 

£ 'LENVEL-',LI,','/5X,'SEND'/IlO) 

GOTO 5400 
ENDIF 
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GOTO (5320, 5330, 5340, 5350, 5360, 5370, 5380, 5390) ,NUM 
GOTO 5300 
5320 WRITE(6,5325) 

5325 FORMAT(/7X,'ENTER THE FUEL RESERVE AS A FRACTION'/ 
fi7X,'OF THE TOTAL FUEL: ',$) 

READ(5,5056,ERR-5320) FRFURE 

IF((PRFURE.lt.0.0).OR.(FRFURE.GT.0.1)) GOTO 5320 
GOTO 5300 
5330 WRITE(6,5335) 

5335 FORMAT(/7X,'ENTER THE TOTAL INTERNAL FUEL (LBS): ',$) 
READ(5,5336,ERR-5330) WFUEL 

5336 FORMAT(F8.1) 

IF(WPUEL.lt.0.0) GOTO 5330 
GOTO 5300 
5340 WRITE(6,5345) 

5345 FORMAT(/7X,'ENTER THE WEIGHT OF THE EXTERNAL FUEL (LBS): ',$) 
READ(5,5096,ERR-5340) WFEXT 

IF((WFEXT.lt.0.0).OR.(WFEXT.GT.99999.0)) GOTO 5340 
GOTO 5300 
5350 WRITE(6,5355) 

5355 FORMAT(/7X,'ENTER THE WEIGHT OF THE TRAPPED FUEL (LBS).'/ 
fi7X,'(THIS IS THE AMOUNT OF FUEL THAT IS IN THE AIRCRAFT'/ 

&7X,'BUT CANNOT BE BURNED): ',$) 

READ(5,5106,ERR-5350) WFTRAP 

IF((WFTRAP.LT.0.0).OR.(WFTRAP.GT.1000.0)) GOTO 5350 
GOTO 5300 
5360 WRITE(6,5365) 

5365 FORMAT(/7X,'ENTER THE ENGINE SIZING FLAG.'/ 

67X,'(0 - SIZED FOR T/W RATIO AT TAKE-OFF, NO AB'/ 

&7X,' -1 - SIZED FOR T/W RATIO AT TAKE-OFF, WITH AB'/ 
fi7X,' -2 - SIZED FOR GIVEN THRUST, WITH AB'/ 

47X,' -3 - SIZED FOR GIVEN THRUST, NO AB); ',$) 
READ(5,5366,ERR-5360) IPSIZE 

5366 FORMAT(12) 

IF((IPSIZE.lt.-3).OR.(IPSIZE.GT.O)) GOTO 5360 
GOTO 5300 
5370 WRITE(6,5375) 

5375 FORMAT(/7X,'ENTER THE NUMBER OF CRUISE PHASES THAT ARE'/ 

47X,'INCLUDED IN YOUR TRAJECTORY PROFILE: ',$) 
READ(5,5366,ERR-5370) NCRUSE 

IF((NCRUSE.GT.12).OR.(NCRUSE.lt.0)) GOTO 5370 
GOTO 5300 
5380 WRITE(6,5385) 

5385 FORMAT(/7X,'ENTER THE TOTAL NUMBER OF PHASES THAT ARE'/ 
t7X,'INCLUDED IN YOUR TRAJECTORY PROFILE (12 MAX): ',$) 
READ(5,5366,ERR-5380) NUMPHA 
IF((NUMPHA.lt.1).OR.(NUMPHA.GT.12)) GOTO 5380 
GOTO 5300 
5390 WRITE(6,5395) 

5395 FORMAT(/7X,'ENTER THE DEBUG OPTION CODE'/ 
fi7X,'0 - NO DEBUG'/7X,'l - DEBUG: ',$) 

READ(5,4004) IPRINT 

IF((IPRINT.NE.O).AND.(IPRINT.NE.l)) GOTO 5390 
GOTO 5300 


- INPUT THE TRAJECTORY PHASES 


5400 IF(DVFLAG.EQ..FALSE.) THEN 
STATUS - LIB$SPAWN('CLS') 
5405 WRITE(6, 5406) 
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5406 FORMAT(// 

i7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE TRAJECTORY'/ 

S7X,'PHASES ? (IF YOU CHANGED THE HUMBER OF PHASES'/ 

<i7X,'IN THE LAST SECTION YOU MUST SELECT "YES")'// 

<i7X,'(l) YES'/7X,'(2) NO'// 

47X,'SELECT 1 OR 2: ',$) 

READ(5r5407) ANS 

5407 FORMAT(Al) 

IF((ANS.NE.'l').AND.(ANS.NE.'2')) GOTO 5405 

IF(AMS.EQ.'2') THEN (TRANSFER THE OLD TRAJECTORY FROM (10)TO(7) 
REWIND(10) 

5410 READ(10,5415) AMS 

5415 FORMAT(5X,A6) 

IF(AHS.NB.'NCODE-') GOTO 5410 
READ(10,5420) ANS 

5420 FORMAT(Al/Al) ! MOVE THE FILE POINTER 2 LINES DOWN 

READ(10,5004) TITLE ! MOVE THE FIRST TRAJ HEADER OVER TO (7) 

WRITE(7,5004) TITLE 

READ(10,5004) TITLE 

WRITE(7,5004) TITLE 

READ(10,5004) TITLE 

WRITE(7,5004) TITLE 

DO 5425 I-1,NPHASE ! MOVE ALL THE PHASES OVER TO (7) 

READ(10,5004) TITLE 
WRITE(7,5004) TITLE 
5425 CONTINUE 
RETURN 
END IF 
ENDIF 

WRITE(7,5430) 

5430 FORMAT(9X,'MACH MO. ALTITUDE HORIZONTAL NO. VIND'/ 

4'PHASE START END START END DIST TIME TURN "G"S', 

4' WKFUEL M IP IX W B A P'/ 



5435 IF(DVFLAG.EQ..TRUE.) THEN 
DO 5440 I-1,NUMPHA 
PHASE(I)-'CLIMB ' 
SMACH(I)-0.0 
EMACH(I)-0.0 
SALT(I)-0 
EALT(I)-0 
DIST (I)-0.0 
TIME (I)-0.0 
TURNS(I)-0.0 
VIND(I)-0.0 
Wia-UEL(I)-1.0 
M(I)-1 
IP(I)-2 
IX(I)-0 
W(I)-0 
B(I)-0 
A(I)-0 
P(I)-0 
5440 CONTINUE 
ELSE 

REWIND(10) 

5442 READ(10,5001,END-5447) ANS 

IF(ANS.NE.'-') GOTO 5442 

DO 5445 1-1,NPHASE 
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READ(10,5460) PHASE(X), SMACH(I), EMACH(Z), SALT(I), 

& EALT(I), DIST(I), TIME<I), TURNS (1), VIND(I), ?nCFUEL(I), 

& M(I), IP(1), IX(I), W(I), B{I), A(I), P(X) 

5445 CONTXNUE 

XF(NPHASE.lt.NUMPHA) GOTO 5447 
ENDXF 
GOTO 5449 

5447 DO 5448 X-NPHASE+1,NUMPHA ! CC»4ES FROM EOF READ 

PHASE(X)-'CLXMB ' 

SMACK (X)-0.0 

EMACH(X)-0.0 

SALT(X)-0 

EALT(X)-0 

DXST(X)-0.0 

TXME(X)«0.0 

TURNS(X)-0.0 

VXND(X)-0.0 

WKFUEL(X)-1.0 

M(X)-1 

XP(X)-2 

XX(X)-0 

W(X)-0 

B(X)-0 

A(X)-0 

P(X)-0 

5448 CONTXNUE 

5449 DO 5700 X-1,NUMPHA 

5450 STATUS - LXB$SPAWN('CLS') 

NRXTE(6,5455) X, PHASE(X), SMACH(X), EMACH(I), SALT(X), 

& EALT(X), DXST(X), TXME(X), VXND(X), XP (X) , W(X), B(X), A(X) 


5455 FORMAT(/ 

6 7X,'** PHASE NUMBER ',12,* **'// 

t 7X,'(1) PHASE TYPE.',A8/ 

& 7X,'(2) STARTXNG MACH number.',F4.2/ 

& 7X,M3) ending MACH number.',F4.2/ 

« 7X, M4) starting altitude (FT).',15/ 

& 7X,'(5) ending altitude (FT).' , X5/ 

& 7X,'(6) DISTANCE COVERED DURING PHASE (NM).',F6.1/ 

« 7X,'(7) time spent DURING PHASE (MIN).',F5.1/ 

& 7X,'(8) LOAD FACTOR DURING CC»4BAT (G"S).',F4.1/ 

& 7X, ' (9) POWER SETTING DURING PHASE. ' ,11/ 

& IX,' (1^4AX AB, 2^XLXTARY, 3-MAX CONTINUOUS'/ 

& IX,' 4-THRUST-DRAG, 5-IDLB)'/ 

i 7X,'(10) MISSILE DROP INDICATOR (CCMBAT).',11/ 

& 7X,'(11) BCMB DROP INDICATOR (COMBAT).',11/ 

& 7X,'(12) AMMUNITION DROP INDICATOR (COMBAT).',11// 

& 7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 

READ(5,5366,ERR-5450) NUM 
IF(NUM.EQ.O) THEN 


WRITE(7,5460) PHASE(I), SMACH(I), EMACH(I), SALT(I), 

& EALT(I), DIST(I), TIME (I), TXJRNS(I), VIND(I), WKFUEL(I), 

& M(I), IP(I), IX(I), W(I), B(I), A(I), P(I) 

5460 FORMAT (A8, F4.2, IX, F4.2,2X, 15, IX, 15, 2X, F6.1, IX, F5.1,2X, F4.1, 

& 1X,F5.1,2X,F6.4,1X,I1,1X,I2,1X, I2,4(1X, II)) 

GOTO 5700 
ENDIF 

GOTO (5470, 5480, 5490, 5500, 5510, 5520, 5530, 5540, 5550, 

& 5560, 5570, 5580) ,NUM 

GOTO 5450 

5470 WRITE(6,5475) 
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5475 FORMAT(/7X,'ENTER THE PHASE NAME IN CAPITAL LETTERS'/ 

& 7X,'(CLIMB, ACCEL, CRUISE, LOITER, C<»1BAT OR DESCENT) 

READ(5,5476,ERR-5470) PHASE(I) 

5476 FORMAT(A8) , 

IF((PHASE(I).NE.'CLIMB ').AND.(PHASE(I).NE, ACCEL 
& (PHASE(I) .NE.'CRUISE ') .AND. (PHASE(I) .NE.'LOITER ') 
& (PHASE(I).NE.'CCMBAT ').AND.(PHASE(I).NE.'DESCENT ') 
£ GOTO 5470 

IF (PHASE (I) .EQ.'CLIMB ') THEN 
SMACH(I)-0.0 
EMACH(I)-0.0 
SALT(I)-0 
EALT(I)-20000 
DIST(I)-*0.0 
TIME (I) -0.0 
IP (I)-2 
W(I)-0 
B(I)-0 
A(I)-0 

END IF 

IF(PHASE(1).EQ.'ACCEL ') THEN 

SMACH(I)-0.5 
EMACH(I)-1.0 
SALT(I)-20000 
EALT(I)-20000 
DIST(I)-0.0 
TIME (I)-1.0 
IP(I)-2 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF(PHASE(1).EQ.'CRUISE ') THEN 
SMACH(I)-0.7 
EMACH(I)-0.7 
SALT(I)-20000 
EALT(I)-20000 
DIST(I)-420.0 
TIME(I)-60.0 
IP (I)-4 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF(PHASE(I) .EQ.' LOITER ') THEN 
SMACH(I)-0.3 
EMACH(I)-0.3 
SALT(I)-500 
EALT(I)-500 
DIST(I)-0.0 
TIME(I)-30.0 
IP(I)-4 
W(I)-0 
B(I)-0 
A(I)-0 

ENDIF 

IF(PHASE (I) .EQ. 'COMBAT ') THEN 
SMACH(I)-0.8 
EMACH(I)-0.8 
SALT (I) -500 


: ',$) 


').AND. 
.AND. 

) 
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EALT(l)-500 
DIST(I)-0.0 
TIME (1)-10.0 
IP(l)-3 
W(I)-0 
B(I)-0 
A(I)-0 
ENDIF 

IF(PHASE(I).BQ.'DESCENT ') THEN 
SMACH(I)-0.5 
EMACH(I)-0.5 
SALT(X)-20000 
EALT(I)-500 
DIST(I)-0.0 
TIME (1)-0.0 
IP (I)-5 
W(I)-0 
B{I)-0 
A(I)-0 
ENDIF 
GOTO 5450 

5480 WRITE(6,5485) 

5485 FORMAT(/7X,'ENTER THE PHASE STARTING MACH NUMBER. '/ 

& 7X,'IF THIS IS A CLIMB PHASE ENTER 0.0): ',$) 

READ<5,5056,ERR-5480) SMACH(I) 

IF(PHASE(I).EQ.'CLIMB ') SMACH(I)-0.0 

GOTO 5450 

5490 WRITE(6,5495) 

5495 FORMAT(/7X,'ENTER THE ENDING MACH NUMBER FOR THE PHASE'/ 

& 7X,'(ENTER 0.0 FOR CLIMB PHASE): ',$) 

R£AD(5,5056,BRR-5490) EMACH(I) 

IF(PHASE(I).EQ.'CLIMB ') EMACH(I)-0.0 

GOTO 5450 

5500 WRITE(6,5505) 

5505 FORMAT (/7X,'ENTER THE STARTING ALTITUDE: ',$) 
READ(5,5506,BRR-5500) SALT(I) 

IF((SALT(I).LT.O).OR.(SALT(I).GT.99999)) GOTO 5500 

5506 FORMAT(15) 

GOTO 5450 

5510 WRITE(6,5515) 

5515 FORMAT(//7X,'ENTER THE ENDING ALTITUDE (FT) ( -1 MAY BE'/ 

& 7X,'ENTERED TO PREVENT THE AIRPLANE FROM CLIMBING): ',$) 

READ(5,5506,ERR-5510) EALT(I) 

IF((EALT(I).LT.-l).OR.(EALT(I).GT.99999)) GOTO 5510 

IF((EALT(I).EQ.-l).AND.(PHASE(1).EQ.'CLIMB ')) GOTO 5510 

GOTO 5450 

5520 WRITE(6,5525) 

5525 FORMAT(/7X,'ENTER THE DISTANCE COVERED DURING THE'/ 

& 7X,'PHASE (NM) (ENTER 0.0 FOR CLIMB/ACCEL PHASES); ',$) 

READ(5,5106,ERR-5520) DIST(I) 

IF(DIST(I).LT.0.0) GOTO 5520 

IF((PHASE(I).NE.'CRUISE ').AND.(PHASE(I).NE.'LOITER ')) 

& DIST(I)-0.0 

GOTO 5450 

5530 WRITE(6,5535) 

5535 FORMAT(/7X,'ENTER THE AMOUNT OF TIME SPENT ON THIS'/ 

& 7X,'PHASE (MIN) (ENTER 0.0 FOR CLIMB/ACCEL PHASES): ',$) 

READ(5,5536,ERR-5530) TIME(I) 

5536 FORMAT(F5.1) 

IF(TIME (1).LT.O.0) GOTO 5530 
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)) GOTO 5530 


IF((TIME(I).EQ.0.0).AND.(PHASE(I).EQ.'ACCEL ' 

GOTO 5450 

5540 WRITE(6,5545) 

5545 FORMAT(/7X,'ENTER THE LOAD FACTOR (G"S): ',$) 
READ(5,5536,ERR-5540) V1ND(I) 

IF(PHASE(1).NE.'COMBAT ') VlND(I)-0.0 
GOTO 5450 

5550 WRITE(6,5555) 

5555 FORMAT(/7X,'ENTER THE PHASE POWER SETTING'/ 

& 7X,'1 - MAX AFTERBURNER'/7X,'2 - MILITARY POWER'/ 

& 7X,'3 - MAX CONTINUOUS POWER'/7X,'4 - THRUST EQUALS DRAG 

6 '/7X,'5 - IDLE POWER: ',$) 

READ(5,5366,ERR-5550) IP(I) 

IF((IP(I).LT.l).OR.(IP(I).GT.5)) GOTO 5550 
GOTO 5450 

5560 WRITE(6, 5565) 

5565 FORMAT(/7X,'MISSILE DROP INDICATOR (COMBAT PHASE ONLY)'/ 

& 7X,'0 - NO DROP'/7X,'1 - DROP AT END OF PHASE: ',$) 

READ(5,4004,ERR-5560) H(I) 

IF((W(I) .NE.O) .AND. (W(I) .NE.D) GOTO 5560 
IF (PHASE(I).NE.'COMBAT ') W(I)-0 
GOTO 5450 

5570 WRITE(6,5575) 

5575 FORMAT(/7X,'BOMB DROP INDICATOR (COIBAT PHASE ONLY)'/ 

& 7X,'0 - NO DROP'/7X,'1 « DROP AT END OF PHASE: ',$) 

READ(5,4004,ERR-5570) B(I) 

IF((B(I).NE.O).AND.(B(I).NE.l)) GOTO 5570 
IF(PHASE(I).NE.'COMBAT ') B(I)-0 
GOTO 5450 

5580 WRITE(6,5585) 

5585 FORMAT(/7X,'AMMUNITION DROP INDICATOR (COMBAT PHASE ONLY)'/ 
& 7X,'0 - NO DROP'/7X,'1 - DROP AT END OF PHASE: ',$) 

READ(5,4004,ERR<-5580) A(I) 

IF((A(I) NE.O).AND. (A(I) .NE.l)) GOTO 5580 
IF (PHASE (I) .NE.'COMBAT ') A(I)»0 
GOTO 5450 

5700 CONTINUE 
RETURN 
END 


- TRAJECTORY DEFAULTS 


SUBROUTINE TRAJDV(CRMACH,DECEL,DELHP,DELMP,DESLF,FLFAC,FRFURE, 
fiFWGMAX, HMAXP, HMINP,MENDUR, RANGE, SMMAXP, SMMINP, TIMTOl, TIMT02, 

& TOL , ULTLF , WCCMBP , WFEXT , WFTRAP , WFUEL, WKF , ?»KLAND , XDBSC , IBREG , 
SIENDUR,IPLOT,IPSIZE,IPRINT,IPSTOl,IPST02,KERROR,MILCOM,MMPROP, 
&NCODE,NCRUSE,LENVEL) 

REAL MENDUR 
LOGICAL LENVEL 
CRMACH-0.8 
DECEL-0.25 
DELHP-4000.0 
DELMP-0.1 
DESLF-3.0 
FLFAC-O.6 
FRFURE-O.05 
FWGMAX-1.2 
HMAXP-40000.0 
HMINP-0,0 
MENDUR-0.5 
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QMAX-700.0 

RANGE-1000.0 

SMMAXP-0.9 

SMHZNP-0.3 

TIMTOl-5.0 

TIMT02-1.0 

TOL-0.001 

ULTLF-4.5 

WCOMBP-0.5 

WTEXT-O.0 

WTTRAP-IOO.O 

WrUEL-5000.0 

HKF-1.000 

WKLAND-0.57 

XDESC-80.0 

IBREG-0 

lENDUR-0 

lPLOT-0 

IPSIZE—3 

lPRINT-0 

IPSTOl-5 

1PST02-2 

KERROR-2 

MILCOi^O 

MMPROP-1 

NCODE-0 

NCRUSE-2 

LENVEL-.FALSE. 

RETURN 

END 

SUBROUTINE AERO(DVFLAG,NVFLAG) 


- AERODYNAMICS SECTION 


LOGICAL DVFLAG, ELLIPC, ELLIPH, ELLIPH 
INTEGER STATUS, LIB$SPAHN, AJCAN, ALELJ, EN 
DIMENSION CLO(10), CLOC(IO), CLOW(IO), CMO(IO), YSWP(10), 
fiFCDRA(lO), FLDM(IO), FVCAM(IO), ALTV(IO), CLINPT(IO), 
SCDBMB(IO), CDONPT(IO), CDSTR(IO), CDTNK(IO), CDEXTR(IO), 
fiSMNCDOdO), SMNBMB(IO), SMSTRS(IO), SMTANK(IO), SMEXTR(IO), 
SITRIM(IO), ALIN(10), SMN(IO), SMNSWP(IO), ALTD(6), XMACH(6) 
REAL MACHN, IT, LDLAND, LDTO, MACHl, MACH2 
CHARACTER ANS*6, TITLE*80 
10 FORMAT(II) 

20 FORMAT(A6) 

30 FORMAT(A80) 

5710 IF(DVFLAG.EQ..FALSE.) THEN ! OPTION TO BYPASS AERO 

5711 STATUS - LIB$SPAWH('CLS') 

WRITE(6,5712) 

5712 FORMAT (/ 

& 7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE AERODYNAMICS'/ 

& 7X,'MODULE ?'//7X,'(1) YES'/7X,'(2) NO'// 

6 7X,'SELECT 1 OR 2: ',$) 

READ(5,10,ERR-5711) NUM 

IF((NXm.NE.l).AND.(NUM.NE.2)) GOTO 5711 
IF(NUM.EQ.l) GOTO 5718 

C - TRANSFER AERO DATA FROM (10) TO (7) 

REWIND(10) 

5713 READ(10,20) ANS 
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IF(ANS.NE.'*** AE') GOTO 5713 
WRITE(7,5719) 

5714 READ(10,30) TITLE 

IF(TITLE(1:6).EQ.'*** PR') RETURN 
WRITE(7,30) TITLE 
GOTO 5714 
ENDIF 

5718 WRITE(7,5719) 

5719 FORMAT('*** AERODYNAMICS DATA **★') 

C - SET ALL AERO DEFAULTS/GET OLD VALUES FIRST (FOR EACH NAMELIST) 

C - THEN SET UP NAMELIST MENUS. 

IF(DVFLAG.EQ..TRUE.) THEN • SET AERO DEFAULTS 
DO 5720 1-1,10 
CLO(1)-0.0 
CLOC(I)-0.0 
CLOW(I)-0.0 
CMO(1)-0.0 
YSWP(I)-0.0 
FCDRA(I)-1.0 
FLDM(I)-1.0 
FVCAM(I)-1.0 
ALTV(I)-0.0 
CLINPT(I)-0.0 
CDBMB(I)-0.0 
CDONPT(I)-0.0 
CDSTR(I)-0.0 
CDTNK(I)-0.0 
CDEXTR(I)-0,0 
SMNCDO(I)-0.0 
SMNBMB(I)-0.0 
SMSTRS(I)-0.0 
SMTANK(l)-0.0 
SMBXTR(l)-0.0 
lTRlM(l)-0 
SMN(I)-0.0 

5720 CONTINUE 
ABOSB-0.15 
ALIN(1)-0.0 
ALIN(2)-3.0 
ALIN(3)-6.0 
ALIN(5)-9.0 
ALIN(6)-12.0 
AL1N(7)-15.0 
AL1N(8)-18.0 
ALIN(9)-21.0 
ALIN(lO)-24.0 
ALMAX-35.0 
AMC-40.0 
BDNOSE-BDMAX 
BTEF-0.0 
MACHN-0.75 
RCLMAX-1.0 
ROC-0.02 
ROCAN-0.02 
SFWF-1.0 
SPANAC-0.0 
SWPMAX-60.0 
SWPMIN-0.0 
AJCAN-1 
ALELJ-1 
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INORM-1 
ISMNDR-O 
ISUPCR-0 
XTRAP-0 
CSF-0.0 
ESSr-1.0 
rCDF-1,0 
FCDL-1.0 
CAND-O.0 
CGM-0.25 
IT-0.0 
SFLAP-0.0 
SM-0.0 
SPAHF-0.0 
2CG-0.0 
IVCAl^l 
ICOD-1 
lPLOT-1 
NALF-10 
MMDTL-1 
CLLAND—1.0 
CLTO—1.0 
DELFLD-45.0 
DELFTO-45.0 
DELLED-30.0 
DELLTO-30.0 
LD LAND—1.0 
LDTO—1.0 
ELLZPC-.FALSE. 

ELLZPH-.FALSE. 

ELLZPW-.FALSE. 

ELSE 

REWIND(10) 

5730 READ(10,20) ANS 

IF(ANS.NE.' $ACHAM GOTO 5730 

READ(10,5740) ABOSB, ALMAX, AMC, BDNOSE, BTEF, (CLO(I),I-l,10), 

& (CLOC(I),1-1,10), (CLOW(I),1-1,10), (CMO(I),1-1,10), MACHN, 

& RCLMAX, ROC, ROCAN, SFWF, SMNDR, (SMNSWP(I),Z-1,10), SPANAC, 

& SWPMAX, SWPMIN, (YSWP(I),1-1,10), AJCAN, ALELJ, ZNOBM, ISMNDR, 

£ ISUPCR, ITRAP, ELLIPC, ELLIPH, ELLIPW, CSF, ESSF, FCDF, CAND, 

& CFLAP, Cai, (FLDM(I) ,1-1,10) , (FVCAM(I) , I-l, 10) , IT, SFLAP, 

& SM, SPANF, ZCG, IVCAM, ITRIM, (ALIN(I),I-l,10), 

& (ALTV(I),1-1,10), (CLINPT(I),1-1,10), (SMN(1),I-l,10), 

& ICOD, IPLOT, NALF, NMDTL, (CDBMB(I),I-l,10), (CDSTR(I),I-l,10), 

£ (CDTNK(I),1-1,10), (CDEXTR(I),1-1,10), (SMNBMB(I),I-l,10), 

£ (SMSTRS(X),I-1,10), (SMTANK(I),1-1,10), (SMEXTR(I),I-l,10), 

£ ICDO, CLLAND, CLTO, DELFLD, DELFTO, DELLED, DELLTO, LDLAND, 

£ LDTO 

5740 FORMAT(11X,F6.3,9X,F6.3,7X,F6.3/12X,F6.3,7X,F5.3/9X,10(F5.3,1X)/ 

£ lOX,10(F5.3,IX)/lOX,10(F5.3,IX)/9X,10(F5.3,IX) 

£ /11X,F6.3,10X,F6.3,6X,F5.3/ 

£ 11X,F5.3,9X,r5.3,llX,F5.3/12X,10(F5.3,lX)/ 

£ 12X,F6.3,9X,F6.3,9X,F6.3/ 

£ lOX, 10(F6.3,IX)/IIX,II,14X,II,14X,11/12X,II,14X,II,13X,11/ 

£ 12X,L1,14X,L1,14X,L1/// 

£ 9X,F5.3,11X,F5.3,10X,F5.2///10X,F6.3,10X,F6.3,7X,F5.3/ 

£ lox,10(F6.3,IX)/iix,10(re.3,ix)/ex,re.3,i2x, n . 2 ,5x,re. 3 / 

£ 11X,F6.2,7X,F5.2,12X,I1/11X,10(I1,1X)///lOX,10(F4.1,IX)/ 

£ 10X,10(F6.0,1X)/ 

fi 12X,10(F6.3,1X)/9X,10(F5.3,1X)/lOX,II,15X,II,13X,I2/11X,12/// 
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& iix,10(re.3,IX)/iix,lO(re.3,ix)/iix,lO(re.3, ix)/ 

& 12X,10(re.3,IX)/12X,lO(rs.3,ix)/ 

i 12X,10(rs.3,IX)/12X,10(rs.3,IX)/12X,10(rs.3,IX)/ 

£ 10X,ll///12X,r6.3,7X,r6.3, 

fi iix,re.3/i2x,re.3,9x,r6.3,9x,re.3/i2x,re.3,7x,re.3) 

EHDXr 

c- 

C - AERO PAGE 1 

5760 STATUS - LIB$SPAWN('CLS') 

WRITE(e,57e5) AROSE, ALMAX, AMC, BDMOSE, BTEP, RCLMAX, SPWT 
57eS rORMAT(/ 

fi7X, AERO PAGE 1 **'// 

&7X,'(1) RATIO or BODY BASE AREA TO MAXIMUM BODY AREA..',re.3/ 


&7X,M2) angle or ATTACK rOR CLMAX (DEGREES). ',re.3/ 

e7X, ' (3) MAXIMUM ANGLE Or ATTACK (DEGREES).',re.3/ 

&7X,'(4) WIDTH or THE rUSELAGE AT THE NOSE (OR AT THE'/ 

£7X, ' CANARDS IT PRESENT) (PEET). ',re.3/ 

£7X,'(5) BOAT-TAIL EXPOSURE rACTOR.',r5.3/ 

£7X,' (e) CLMAX SCALING PACTOR POR USE WITH PLAPS. ',re,3/ 

47 X,'(7) LAMINAR-TURBULENT WEIGHTING PACTOR. ',r5.3// 


e7X,' SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
R£AD(5,10,ERR-57e0) NUM 
IP(NUM.EQ.O) GOTO 58e0 

GOTO (5770, 5780, 5790, 5800, 5810, 5820, 5830) ,NUM 
GOTO 57e0 
5770 WRITE (e, 5775) 

5775 rORMAT(/7X,'ENTER THE RATIO OP THE BODY BASE AREA TO THE'/ 

&7X,'MAXIMUM BODY AREA: ',$) 

READ(5,5776,ERR-5770) ABOSB 

5776 rORMAT(r6.3) 

ir( (ABOSB.GT,0.5).OR.(ABOSB.lt.0.0)) GOTO 5770 
GOTO 5760 
5780 WRITE(6,5785) 

5785 rORMAT(/7X,'ENTER THE ANGLE OP ATTACK AT WHICH'/ 

&7X,'CLMAX OCCURS (DEGREES): ',$) 

READ(5,5776, ERR-5780) ALMAX 

ir((ALMAX.LE.0.0).OR.(ALMAX.GT.60.0)) GOTO 5780 
GOTO 5760 
5790 WRITE(6,5795) 

5795 rORMAT(/7X,'ENTER THE MAXIMUM ANGLE OP ATTACK (DEGREES): ',$) 
READ(5,5776, ERR-5790) AMC 

IP((AMC.LE.0.0).OR.(AMC.GT.60.0)) GOTO 5790 
GOTO 5760 
5800 WRITE(6, 5805) 

5805 PORMAT(/7X,'ENTER THE WIDTH OP THE PUSELAGE AT THE NOSE OR'/ 
&7X,'AT THE CANARD LOCATION (IP IT EXISTS) (PEET): ',$) 
READ(5,5776,ERR-5800) BDNOSE 
IP(BDNOSE.LE.O.O) GOTO 5800 
GOTO 5760 
5810 WRITE(6,5815) 

5815 PORMAT(/7X,'ENTER THE BOAT TAIL EXPOSURE PACTOR (FOR WING OR'/ 
&7X,'FUSELAGE PODS ONLY). (IF THERE ARE 3 PODS WITH ONE OP'/ 
47X,'THEM INTERNAL TO THE FUSELAGE, THEN THE BOAT TAIL'/ 

£7X,'EXPOSURE FACTOR IS .667): ',$) 

READ (5,5816,ERR'-5810) BTEP 

5816 FORMAT(P5.3) 

IP((BTEP.LT. 0.0) .OR.(BTEP.GT. 1.0)) GOTO 5810 
GOTO 5760 
5820 WRITE (6,5825) 
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5825 FORMAT(/7X,'ENTER THE CLMAX SCALE FACTOR FOR USE WITH'/ 
fi7X,'FLAPS: ',$) 

READ(5,5776,ERR-5820) RCLMAX 
ZF(RCLMAX.LE.O.O) GOTO 5820 
GOTO 5760 
5830 WRITE(6,5835) 

5835 FORMAT(/7X,'ENTER THE LAMINAR-TURBULENT SKIN FRICTION'/ 
fi7X,'WEIGHTING FACTOR: ',$) 

READ(5,5816,ERR-5830) SFWF 

IF((SFWF.GT.1.0).OR.(SFWF.LT.0.0)) GOTO 5830 
GOTO 5760 


AERO PAGE 2 


5860 STATUS - LIB$SPAWN('CLS') 

WRITE(6,5865) (SMNSWP(I),I-l,10), (CLO(I),I-l,10), 

6 (CLOC(I),1-1,10), (CLOW(1),1-1,10), (CMO(I),1-1,10), 
fi(TSWP(I),l-l,10) 

5865 FORMAT(/ 

67X,'** AERO PAGE 2 **'// 

47X,'(1) REFERENCE MACH NUMBER ARRAY: ',2 (F5.3,',')/ 

4 11X,7(F5.3,','),F5.3// 

47X,'(2) CL AT ZERO AOA FOR BODY: ',2(F5.3,',')/ 

4 11X,7(F5.3,','),F5.3// 

47X,'(3) CANARD CL AT ZERO AOA: ',2 (F5.3,',')/ 

4 11X,7(F5.3,','),F5.3// 

47X,'(4) WING CL AT ZERO AOA: ',2(F5.3,',')/ 

4 11X,7(F5.3,','),F5.3// 

47X,'(5) ZERO LIFT PITCHING MOMENT: ',2(F5.3,',')/ 

4 11X,7(F5.3,','),F5.3// 

47X,'(6) WING SWEEP ANGLES (VARIABLE SWEEP ONLY): ', 

4 2(F6.3,',')/11X,7(F6.3,','),F6.3/// 

47X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
RBAD(5,10,ERR-5860) NUM 
IF(NUM.EQ.O) GOTO 5940 

GOTO (5880, 5890, 5900, 5910, 5920, 5930) ,NUM 
GOTO5860 

5880 ffRITE(6,5885) 

5885 FORMAT(/7X,'ENTER THE REFERENCE MACH NUMBER ARRAY. PUT A ","'/ 
47X,'BETWEEN EACH NUMBER. (MAXIMUM OF TEN NUMBERS) .'/ 

4' ENTER: ',$) 

READ(5,5886,ERR-5880) (SMNSWP(I),1-1,10) 

5886 FORMAT(10F6.3) 

DO 5887 1-1,10 

IF((SMNSWP(I).LT.0.0).OR.(SMNSWP(l).GT.3.0)) GOTO 5880 

5887 CONTINUE 
GOTO 5860 

5890 WRITE(6,5895) 

5895 FORMAT(/7X,'ENTER THE ARRAY FOR THE BODY CL AT ZERO AOA. PUT'/ 

47X,'A BETWEEN EACH NUMBER. (MAXIMUM OF TEN NUMBERS).'/ 

6 ^ SN7ER* ^ $) 

READ(5,5886,ERR-5890) (CLO(I),1*1,10) 

DO 5896 1-1,10 

1F((CLO(I).LT.0.0).OR.(CLO(I).GT.1.0)) GOTO 5890 

5896 CONTINUE 
GOTO 5860 

5900 ?»RITE(6,5905) 

5905 FORMAT(/7X,'ENTER THE ARRAY FOR THE CANARD CL AT ZERO AOA.'/ 
47X,'PUT A BETWEEN EACH NUMBER. (MAXIMUM OF TEN NUMBERS).'/ 

4' ENTER: ',$) 
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READ(5,5886,ERR-5900) (CLOC(I),I-l,10) 

DO 5906 1-1,10 

ir((CLOC(I).LT.0.0).OR.(CLOC(I).GT.1.0)) GOTO 5900 
5906 COHTINUB 
GOTO 5860 
5910 WRITE(6,5915) 

5915 FORMAT(/7X,'ENTER THE ARRAY FOR THE WING CL AT ZERO AOA. PUT'/ 
&7X,'A BETWEEN EACH NUMBER. (MAXIMUM OF TEN NUMBERS).'/ 

ENTSRs ^ $) 

READ(5,5886,ERR-5910) (CLOW(I),I-l,10) 

DO 5916 1-1,10 

IF((CLOW(l).LT.0.0).OR.(CLOW(I).GT.1.0)) GOTO 5910 

5916 CONTINUE 
GOTO 5860 

5920 WRITE(6,5925) 

5925 FORMAT(/7X,'ENTER THE ARRAY FOR THE ZERO LIFT PITCHING'/ 

S7X,'MOMENT. PUT A BETWEEN EACH NUMBER. (MAXIMUM OF'/ 
fi7X,'TEN NUMBERS).'/' ENTER: ',$) 

READ(5,5886,ERR-5920) (CMO(I),I-l,10) 

DO 5926 1-1,10 

IF((CMO(I).LT.0.0).OR.(CMO(I).GT.1.0)) GOTO 5920 

5926 CONTINUE 
GOTO 5860 

5930 WRITE(6,5935) 

5935 FORMAT(/7X,'ENTER THE ARRAY FOR THE SWEEP ANGLES FOR A'/ 

&7X,'VARIABLE SWEEP WING. PUT A BETWEEN EACH NUMBER.'/ 
fi7X,'(MAXIMUM OF TEN NUMBERS).'/' ENTER: ',$) 

READ(5,5936,ERR-5930) (YSWP(I),I-l,10) 

5936 FORMAT(10F7.3) 

DO 5937 1-1,10 

1F((YSWP<I).LT.0.0).OR.(YSWP(I).GT.60.0)) GOTO 5930 

5937 CONTINUE 
GOTO 5860 


C- 

C - AERO PAGE 3 

5940 STATUS - LIBSSPAWN('CLS') 

WRITE(6,5945) ELLIPW, INORM, MACHN, SWPMAX, SWPMIN 
5945 FORMAT(/ 

47X,AERO PAGE 3 (VARIABLE SWEEP £ OBLIQUE WINGS) **'// 


47X,'(1) VARIABLE WING SWEEP FLAG.',L1/ 

£7X,' (T - WING IS VARIABLE SWEEP)'/ 

fi7X,' (F - WING IS NOT VARIABLE SWEEP)'/ 

S7X, ' (2) NORMAL COMPONENT MACK NUMBER CODE.',11/ 

&7X,' (0 - SWEEP WING TO KEEP NORMAL COMPONENT CONST)'/ 

£7X, ' (1 - DO NOT CALULATE NORMAL COMPONENT)'/ 

S7X, ' (3) DESIRED NORMAL COMPONENT OF MACH NUMBER.',F6.3/ 

&7X,'(4) MAXIMUM SWEEP FOR NORMAL COMPONENT MACH NUMBER'/ 

£7X, ' CALCULATIONS (DEGREES).',F6.3/ 

£7X, ' (5) MINIMUM SWEEP FOR NORMAL COMPONENT MACH NUMBER' / 

67X, ' CALCULATIONS (DEGREES).',F6.3// 


£7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
REAO(5,10,ERR-5940) NUM 
IF(NUM.EQ.O) GOTO 6050 

GOTO (5960, 5970, 5980, 5990, 6000) ,NUM 
GOTO 5940 
5960 WRITE(6,5965) 

5965 FORMAT(/7X,'ENTER THE VARIABLE WING SWEEP FLAG: ',$) 
READ(5,5967,ERR-5960) ELLIPW 
5967 FORMAT(LI) 
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GOTO 5940 
5970 WRITE(6,5975) 

5975 FORMAT(/7X,'ENTER THE NORMAL COMPONENT MACH NUMBER'/ 
fi7X,'CALCULATION CODE'/ 

fi7X,'(0 - ACSYNT WILL SWEEP THE WING TO KEEP THE NORMAL'/ 
t7X,' COMPONENT OF THE MACH NUMBER CONSTANT)'/ 

t7X,'(1 - DO NOT CALCULATE THE NORMAL CC»lPONENT OF THE MACH'/ 
«7X,' NUMBER): ',$) 

READ(5,10,ERR-5970) INORM 

IF((INORM.NE.O).AND.(INORM.NE.l)) GOTO 5970 
GOTO 5940 
5980 WRITE(6,5985) 

5985 FORMAT</7X,'ENTER THE DESIRED NORMAL COMPONENT OF THE MACH'/ 
fi7X,'NUMBER: ',$) 

REAO(5,5776,ERR-5980) MACHN 

IF((MACHN.LE.0.0).OR.(MACHN.GT.3.0)) GOTO 5980 
GOTO 5940 
5990 WRITE(6,5995) 

5995 FORMAT(/7X,'ENTER THE MAXIMUM ALLOWABLE SWEEP FOR THE NORMAL'/ 
S7X,'COMPONENT CALCULATIONS (DEGREES): ',$) 
READ(5,5776,ERR-5990) SWPMAX 

IF( (SNPMAX.lt. 0.0).OR.(SWPMAX.GT.60.0)) GOTO 5990 
GOTO 5940 
6000 WRITE(6,6005) 

6005 FORMAT(/7X,'ENTER THE MINIMUM ALLOWABLE WING SWEEP FOR THE'/ 
&7X,'NORMAL COMPONENT CALCULATIONS (DEGREES): ',$) 

READ(5,5776,ERR-6000) SWPMIN 

IF( (SWPMIN.lt. 0.0).OR.(SWPMIN.GT.60.0)) GOTO 6000 
GOTO 5940 

C- 

C - AERO PAGE 4 

6050 STATUS - LIB$SPAWN('CLS') 

WRITE(6,6055) ALELJ, ROC, AJCAN, ROCAN, SPANAC, ISUPCR, ITRAP 


6055 FORMAT (/ 

S7X,'** AERO PAGE 4 **'// 

47X, ' (1) WING AIRFOIL SECTION CODE.',11/ 

S7X,'(2) WING LEADING EDGE RADIUS/CHORD RATIO.',F5.3/ 

S7X,' (FOR WING AIRFOIL SECTION CODE 5 ONLY)'/ 

i7X, ' (3) CANARD AIRFOIL SECTION CODE.',11/ 

&7X,'(4) CANARD LEADING EDGE RADIUS/CHORD RATIO.',F5.3/ 

fi7X,' (FOR CANARD AIRFOIL SECTION CODE 5 ONLY)'/ 

&7X,'(5) DISTANCE BETWEEN THE TWIN NACELLES (FEET)...',F6.3/ 
S7X,' (USED FOR CANARD PLACEMENT)'/ 

47X, ' (6) SUPERCRITICAL WING FLAG.',11/ 

fi7X,' (1 - WING IS SUPERCRITICAL)'/ 

&7X, ' (0 - WING IS NOT SUPERCRITICAL)'/ 

S7X,'(7) BODY CROSS-SECTION CODE.',11/ 

fi7X,' (0 - CIRCULAR BODY)'/ 

&7X,' (1 - TRAPEZOIDAL BODY)'// 

&7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,10,ERR-6050) NUM 
IF(NUM.EQ.O) GOTO 6150 


GOTO (6070, 6080, 6090, 6100, 6110, 6120, 6130) ,NUM 
GOTO 6050 
6070 WRITE(6,6075) 

6075 FORMAT(/7X,'ENTER THE WING AIRFOIL SECTION CODE'/ 
47X,'(1 - SHARP/NEAR SHARP AIRFOIL)'/ 

&7X,'(2 - 230-XX AND 00-XX AIRFOILS)'/ 

&7X,'(3 - 6-SERIES AIRFOIL)'/ 
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fi7X, M4 - WHITCOMB SUPERCRITICAL AIRFOIL ('/ 

67X,'(5 - LEADING EDGE RADIUS/CHORD RATIO SPECIFIED): ',$) 
READ(5,10,ERR-6070) ALELJ 

IF((ALELJ.lt.1).OR.(ALELJ.GT.5)) GOTO 6070 
GOTO 6050 
6080 WRITE(6,6085) 

6085 FORMAT(/7X,'ENTER THE WING LEADING EDGE RADIUS/CHORD RATIO: 

6 $) 

READ(5,5816,ERR-6080) ROC 

IF((ROC.LE.0.0).OR.(ROC.6T.0.5)) GOTO 6080 
GOTO 6050 
6090 WRITE(6,6095) 

6095 FORMAT(/7X,'ENTER THE CANARD AIRFOIL SECTION CODE'/ 

&7X,'(1 - SHARP/NEAR SHARP AIRFOIL)'/ 

47X,'(2 - 230-XX AND 00-XX AIRFOILS)'/ 

S7X,'(3 - 6-SERIES AIRFOIL)'/ 

fi7X,'(4 - WHITCOMB SUPERCRITICAL AIRFOIL('/ 

&7X,'(5 - LEADING EDGE RADIUS/CHORD RATIO SPECIFIED): ',$) 
READ(5,10,ERR*6090) AJCAN 

IF((AJCAN.lt.1).OR.(AJCAN.GT.5)) GOTO 6090 
GOTO 6050 
6100 WRITE(6,6105) 

6105 FORMAT(/7X,'ENTER THE CANARD LEADING EDGE RADIUS/CHORD'/ 

S7X,'RATIO: ',$) 

R£AD(5,5816,ERR«6100) ROCAN 

IF((ROCAN.LE.0.0).OR.(ROCAN.GT.0.5)) GOTO 6080 
GOTO 6050 
6110 WRITE(6,6115) 

6115 FORMAT(/7X,'ENTER THE DISTANCE BETWEEN THE OUTSIDES OF THE'/ 

C7X,'OF THE TWIN NACEJLES THAT THE CANARDS ARE MOUNTED ON.'/ 
fi7X,'(IF APPLICABLE) (FEET): ',$) 

RBAD(5,5776,BRR»6110) SPANAC 
IF(SPANAC.lt.0.0) GOTO 6110 
GOTO 6050 
6120 WRITE(6,6125) 

6125 FORMAT(/7X,'ENTER THE CUPERCRITICAL WING FLAG.'/ 

&7X,'(0 - WING IS NOT SUPERCRITICAL)'/ 

*7X,'(1 - WING IS SUPERCRITICAL): ',$) 

READ(5,10,ERR-6120) ISUPCR 

IF((ISUPCR.NE.O).AND.(ISUPCR.NE.l)) GOTO 6120 
GOTO 6050 
6130 WRITE(6,6135) 

6135 FORMAT(/7X,'ENTER THE BODY CROSS-SECTION CODE.'/ 

S7X,'(0 - CIRCULAR BODY)'/ 

67X,'(1 - TRAPEZOIDAL BODY); ',$) 

READ(5,10,ERR-6130) ITRAP 

IF((ITRAP.NE.O).AND.(ITRAP.NE.l)) GOTO 6130 
GOTO 6050 

C- 

C - AERO PAGE 5 

C- 

6150 STATUS ■ LIB$SPAWN('CLS') 

WRITE(6,6155) CSF, FCDF, CAND, CFLAP, SFLAP, SPANF, CGM, SM, ZCG, 


«1T 

6155 FORMAT(/ 

fi7X,'** AERO PAGE 5 **'// 

&7X,' (1) POD COWL EXPOSURE FACTOR. ',F5.3/ 

S7X, ' (2) FRICTION DRAG MULTIPLYING FACTOR. ',F5.2/ 

47X,'(3) CANARD INCIDENCE (DEGREES). ',F6.3/ 

S7X,'(4) AVERAGE FLAP CHORD (FEET). ',F6.3/ 
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fi7X,'(5) TOTAL AREA OF BOTH WIMG FLAPS (FT2). • ,ri .2/ 

47X,'(6) TOTAL SPAN OF FLAPS FOR TRIMMING (FEET)-',F6.2/ 

fi7X,'(7) DESIRED LOCATION OF CG (GIVEN AS A FRACTION'/ 

S7X,' OF WING CHORD).',F5.3/ 

fi7X, ' (8) STATIC MARGIN FACTOR FOR CG.',F6.3/ 

fi7X,'(9) HEIGHT OF CG ABOVE THE FOSELAGE CENTERLINE'/ 

t7X, ' (FEET).',F5.2/ 

&7X,'(10) HORIZONTAL TAIL INCIDENCE (DEGREES).',F6.3// 

«7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,6160,ERR-6150) NUM 
6160 FORMAT(12) 

IF(NUM.EQ.O) GOTO 6280 


GOTO (6170, 6180, 6190, 6200, 6210, 6220, 6230, 6240, 6250, 
46260), NUM 
GOTO 6150 
6170 WRITE(6,6175) 

6175 FORMAT(/7X,'ENTER THE POD COWL EXPOSURE FACTOR. (IF THERE '/ 
«7X,'ARB 3 PODS ON THE DESIGN BUT ONE OF THEM IS FULLY BURIED'/ 
47X,'THEN THE EXPOSURE FACTOR IS .667): ',$) 
READ(5,5816,ERR-6170) CSF 
IF((CSF.LT.0.0).OR.(CSF.GT.1.0)) GOTO 6170 
ESSF-CSF 
GOTO 6150 
6180 WRITE(6,6185) 

6185 FORMAT(/7X,'ENTER THE FRICTION DRAG MULTIPLYING FACTOR.'/ 

47X,'(1.0 - STANDARD SURFACE ROUGHNESS): ',$) 

REAO(5,6186,ERR-6180) FCDF 

6186 FORMAT(F5.2) 

1F((FCDF.LT.0.0).OR.(FCDF.GT.2.0)) GOTO 6180 
GOTO 6150 
6190 WRITE(6,6195) 

6195 FORMAT(/7X,'ENTER THE CANARD ANGLE OF INCIDENCE (DEGREES): ', 
4$) 

READ(5,5776,ERR-6190) CAND 

IF((CAND.LT.0.0).OR.(CAND.GT.10.0)) GOTO 6190 
GOTO 6150 
6200 WRITE(6,6205) 

6205 FORMAT(/7X,'ENTER THE AVERAGE FLAP CHORD (FEET): ',$) 
R£AD(5,5776,BRR-6200) CFLAP 
IF(CFLAP.lt.0.0) GOTO 6200 
GOTO 6150 
6210 WRITE(6,6215) 

6215 FORMAT(/7X,'ENTER THE TOTAL AREA OF THE WING FLAPS (FT2): ',$) 
READ(5,6216,ERR-6210) SFLAP 

6216 FORMAT(F7.2) 

IF(SFLAP.lt.0.0) GOTO 6210 
GOTO 6150 
6220 WRITE(6,6225) 

6225 FORMAT(/7X,'ENTER THE TOTAL SPAN OF THE FLAPS (FEET): ',$) 
READ(5,6226,ERR-6220) SPANF 

6226 FORMAT(F6.2) 

IF(SPANF.lt.0.0) GOTO 6220 
GOTO 6150 
6230 WRITE(6,6235) 

6235 FORMAT(/7X,'ENTER THE DESIRED LOCATION OF THE CG AS A'/ 

S7X,'FRACTION OF THE MEAN AERODYNAMIC CHORD: ',$) 
READ(5,5816,ERR-6230) COl 

IF((CGM.LT.0.0).OR.(CGM.GT.1.0)) GOTO 6230 
GOTO 6150 
6240 WRITE(6,6245) 











6245 FORMAT(/7X,'ENTER THE CG STATIC MARGIN FACTOR: ',$) 
READ(5,5776,ERR-6240) SM 
ir((SM.LT.0.0).OR.(SM.GT.1.0)) GOTO 6240 
GOTO 6150 

6250 WRITE(6,6255) 

6255 FORMAT(/7X,'ENTER THE HEIGHT OF THE CG ABOVE THE FUSELAGE'/ 
67X,'CENTERLINE (FEET): ',$) 

READ(5,6166,ERR-6250) ZCG 
IF(ZCG.LT.O.O) GOTO 6250 
GOTO 6150 

6260 WRITE(6,6265) 

6265 FORMAT(/7X,'ENTER THE ANGLE OF INCIDENCE OF THE HORIZONTAL'/ 
£7X,'TAIL (DEGREES): ',$) 

READ(5,5776,ERR-6260) IT 

ir((IT.LT.0.0).OR.(IT.GT.10.0)) GOTO 6260 

GOTO 6150 

C - AERO PAGE 6 

C- 

6280 STATUS - LIBSSPAWN('CLS') 

WRITE(6,6285) (SMN(l),1-1,10), NMDTL, (ALTV(I),1-1,10), 
&(CLINPT(I),1-1,10) 

6285 FORMAT(/ 

67X,AERO PAGE 6 **'// 

fi7X, '(1) MACH NUMBERS FOR DETAILED AERODYNAMICS OUTPUT: ',r5.3, 
fi','/llX,8(F5.3,','),r5.3// 

&7X,'(2) TOTAL NUMBER OF REQUESTED MACH NUMBERS (ABOVE)..',12// 
i7X,'(3) ALTITUDES FOR DETAILED AERODYNAMICS OUTPUT: ',F7.1,',' 
S,F7.1,','/10X,7(F7.1,','),F7.1// 

fi7X,'(4) LIFT COEFFICIENTS FOR DETAILED OUTPUT: ',F6.3,','/ 
611X,8(F6.3,','),F6.3// 

47X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,10,ERR-6280) NUM 
IF(NUM.EQ.O) GOTO 6360 
GOTO (6300, 6310, 6320, 6330) ,NUM 
GOTO 6280 

6300 WRITE(6,6305) 

6305 FORMAT(/7X,'ENTER THE DESIRED MACH NUMBERS FOR DETAILED'/ 

47X,'AERODYNAMICS OUTPUT. PUT A BETWEEN EACH NUMBER.'/ 

47X,'(A MAXIMUM OF TEN NUMBERS);'//' ENTER: ',$) 

READ(5,6306,ERR-6300) (SMN(I),X-1,10) 

6306 FORMAT(10F6.3) 

DO 6307 1-1,10 

1F((SMN(I).LT.0.0).OR.(SMN(I).GT.3.0)) GOTO 6300 

6307 CONTINUE 
GOTO 6280 

6310 WRITE(6,6315) 

6315 FORMAT(/7X,'ENTER THE TOTAL NUMBER OF MACH NUMBERS THAT ARE'/ 
67X,'ENTERED INTO THE ARRAY (DISREGARD TRAILING ZEROS): ',$) 
READ(5,6160,ERR-6310) NMDTL 
IF((NMDTL.LT.O).OR.(NMDTL.GT.10)) GOTO 6310 
GOTO 6280 

6320 WRITE(6,6325) 

6325 FORMAT(/7X,'ENTER THE ALTITUDES DESIRED FOR THE DETAILED'/ 

47X,'AERODYNAMICS OUTPUT (UP TO 10). PUT A BETWEEN EACH'/ 
47X,'NUMBER.'//' ENTER: ',$) 

READ(5,6326,ERR-6320) (ALTV(I),I-l,10) 

6326 FORMAT(lore.1) 

DO 6327 1-1,10 

IF((ALTV(I).LT.O.0).OR.(ALTV(I).GT.99999.0)) GOTO 6320 
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6327 CONTINUE 
GOTO 6280 
6330 WRITE(6,6335) 

# 6335 FORMAT(/7X,'ENTER THE LIFT COEFFICIENTS DESIRED FOR THE'/ 

S7X,'DETAILED AERODYNAMICS OUTPUT. PUT A " BETWEEN EACH'/ 
&7X,'NUMBER. (A MAXIMUM OF TEN NUMBERS):'//' ENTER: ',$) 
READ(5,6336,ERR-6330) (CLINPT(l),1-1,10) 

6336 FORMAT(10F7.3) 

DO 6337 1-1,10 

IF((CLINPT(I).LT.0.0).OR.(CLINPT(I).GT.8.0)) GOTO 6330 

6337 CONTINUE 
GOTO 6280 


- AERO PAGE 7 


6360 STATUS - LIB$SPA?«N ('CLS') 

WRITE(6,6365) CDBMB(l), CDSTR(l), CDTNK(l), CDEXTR(l) 


6365 FORMAT (/ 

&7X,AERO PAGE 7 **'// 

i7X,' (1) TOTAL DRAG DUE TO EXTERNAL BOMBS {FT2). ',F6.3/ 

«i7X,'(2) TOTAL DRAG DUE TO EXTERNAL STORES (FT2) . . . ',F€.3/ 

S7X, ' (3) TOTAL DRAG DUE TO DROP TANKS (FT2). ,F6.3/ 


S7X,' (4) TOTAL DRAG DUE TO ADDITIONAL ITEMS (FT2)_',F6.3// 

fi7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,10,ERR-6360) NUM 
IF(NUM.EQ.O) GOTO 6450 
GOTO (6380, 6390, 6400, 6410) ,NUM 
GOTO 6360 
6380 WRITE(6,6385) 

6385 FORMAT(/7X,'ENTER THE DRAG DUE TO EXTERNAL BOMBS (FT2): ',$) 
READ(5,5776,ERR-6380) CDBMB{1) 

IF(CDBMB(l).LT.0.0) GOTO 6380 
GOTO 6360 
6390 WRITE(6,6395) 

6395 FORMAT(/7X,'ENTER THE DRAG DUE TO EXTERNAL STORES (FT2): ',$) 
READ(5,5776,ERR-6390) CDSTR(l) 

IF(CDSTR(l).LT.0.0) GOTO 6390 
GOTO 6360 
6400 WRITE(6,6405) 

6405 FORMAT(/7X,'ENTER THE DRAG DUE TO DROP TANKS (FT2): ',$) 

READ(5,5776,ERR-6400) CDTNK(l) 

IF(CDTNK(l).LT.0.0) GOTO 6400 
GOTO 6360 
6410 WRITE(6,6415) 

6415 FORMAT(/7X,'ENTER THE DRAG DUE TO ADDITIONAL ITEMS (SUCH'/ 

<i7X,'AS FLIR PODS, PYLONS, ETC...) (FT2) . (IF THE NAVY MODULE'/ 

47X,'IS SELECTED, INPUT THE GEAR DOWN DRAG HERE): ',$) 
READ(5,5776,ERR-6410) CDEXTR(l) 

- IF THE NAVY MODULE WILL BE CALLED, THIS WILL BE USED FOR 

- THE GEAR DOWN DRAG. THE SECOND VALUE OF CDEXTR AND SMEXTR 

- ARE USED TO PREVENT THE SCALING FACTOR FROM OCCURING WHEN 

- USING THE SNODGRASS METHOD. THE GEAR DRAG WILL ONLY BE APPLIED 

- WHEN THE MACH NUMBER IS BETWEEN 0.0 AND 0.25 

IF (I ’/FLAG. EQ. . TRUE.) THEN 
CDEXTR(2)-CDEXTR(1) 

SMEXTR(1)-0.2 
SMEXTR(2)-0.3 
END IF 

IF(CDEXTR(l).LT.0.0) GOTO 6410 
GOTO 6360 
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- AERO PAGE 8 


6450 STATUS ■ LIB$SPAWN('CLS') 

WRITE(6,6455) CLLANU, CLTO, DELFLD, DELFTO, DELLED, DELLTO, 


fiLOLAND, IJ>TO 
6455 FORMAT(/ 

&7X,'** AERO PAGE 8 **'// 

47X, ' (1) CL MAX FOR LANDING.',F6.3/ 

&7X, ' (2) CL MAX FOR TAKE-OFF.',F6.3/ 

fi7X,'(3) TRAILING EDGE FLAP ANGLE FOR LANDING (DEG)_',F6.3/ 

47X, M4) TRAILING EDGE FLAP ANGLE FOR TAKE-OFF (DEG) . . . ' , F6.3/ 

&7X,'(5) LEADING EDGE SLAT ANGLE FOR LANDING (DEG).',F6.3/ 

&7X,'(6) LEADING EDGE SLAT ANGLE FOR TAKE-OFF (DBG)_',F6.3/ 

«7X, ' (7) L/D RATIO FOR LANDING.',F6.3/ 

&7X,' (8) L/D RATIO FOR TAKE-OFF.',F6.3// 


S7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,10,ERR-6450) NUM 
IF(NUM.EQ.O) GOTO 6550 

GOTO (6470, 6480, 6490, 6500, 6510, 6520, 6530, 6540) ,NUM 
GOTO 6450 
6470 WRITE(6,6475) 

6475 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR CL MAX'/ 

i;7X,'DURING LANDING (-1.0 - CALCULATED INTERNALLY): ',$) 
READ(5,5776,ERR-6470) CLLAND 

IF(((CLLAND.LT.O.O).AND.(CLLAND.GT.-1.0)).OR.(CLLAND.LT.-1.0)) 
&GOTO 6470 
GOTO 6450 
6480 WRITE(6,6485) 

6485 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR CL MAX'/ 

S7X,'DURING TAKE-OFF (-1.0 - CALCULATED INTERNALLY): ',$) 
READ(5,5776,ERR-6480) CLTO 

IF(((CLTO.LT.O.O).AND.(CLTO.GT.-l.0)).OR.(CLTO.LT.-1.0)) 

SGOTO 6480 
GOTO 6450 
6490 WRITE(6,6495) 

6495 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE TRAILING EDGE'/ 
S7X,'FLAP ANGLE ON LANDING (DEGREES): ',$) 

READ(5,5776,ERR-6490) DELFLD 

IF((DELFLD,LT.O.O).OR.(DELFLD.GT.60.0)) GOTO 6490 
GOTO 6450 
6500 WRITE(6,6505) 

6505 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE TRAILING EDGE'/ 
57X,'FLAP ANGLE ON TAKE-OFF (DEGREES): ',$) 

READ(5,5776,ERR-6500) DELFTO 

IF((DELFTO.LT.O.O).OR.(DELFTO.GT.60.0)) GOTO 6500 
GOTO 6450 
6510 WRITE(6,6515) 

6515 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE LEADING EDGE'/ 

4 7X, 'SLAT ANGLE ON LANDING (DEGREES): ',$) 

READ(5,5776,ERR-6510) DELLED 

IF((DELLED.LT.O.O).OR.(DELLED.GT.60.0)) GOTO 6510 
GOTO 6450 
6520 WRITE(6,6525) 

6525 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE LEADING EDGE'/ 
47X,'FLAP ANGLE ON TAKE-OFF (DEGREES): ' , $) 
READ(5,5776,ERR-6520) DELLTO 

IF((DELLTO.LT.0.„,.OR.(DELLTO.GT.60.0)) GOTO 6520 
GOTO 6450 
6530 WRITE(6,6535) 
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6535 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE L/D RATIO'/ 

&7X,'DURING LANDING (-1.0 » CALCULATED INTERNALLY): ',$) 
READ(5,5776,ERR-6530) LDLAND 

1F(((LDLAND.lt. 0.0).AND.(LDLAND.GT.-1.0)).OR.(LDLAND.LT.-l.0)) 
&GOTO 6530 
GOTO 6450 
6540 WRITE(6,6545) 

6545 FORMAT(/7X,'ENTER THE VALUE TO BE USED FOR THE L/D RATIO'/ 

S7X,'DURING TAKE-OFF (-1.0 - CALCULATED INTERNALLY): ',$) 
READ(5,5776,ERR-6540) LDTO 

IF(((LDTO.LT.0.0).AND.(LDTO.GT.-l.0)).OR.(LDTO.LT.-1.0)) 

&GOTO 6540 
GOTO 6450 

6550 WRITE(7,6555) ABOSB, ALMAX, AMC, BDNOSE, BTEF, (CLO(I),I-l,10), 
&(CLOC(I),1-1,10), (CLOW(I),1-1,10), (CMO(l),1-1,10), MACHN, 
&RCLMAX, ROC, ROCAN, SFWF, SMNDR, (SMNSWP(I),I-l,10), SPANAC, 
SSWPMAX, SWPMIN, (YSWP(I),I-l,10), AJCAN, ALELJ, INORM, ISMNDR, 
filSUPCR, ITRAP, ELLIPC, ELLIPH, ELLIPW, CSF, ESSF, FCDF, CAND, 
&CFLAP, CGM, (FLDMd) ,1-1,10) , {FVCAM(I) , I-l, 10) , IT, SFLAP, 

&SM, SPANF, ZCG, IVCAM, ITRIM, (ALIN(I),I-l,10), 
i(ALTV(I),1-1,10), (CLINPT(I),I-1,10), (SMN(1),I-l,10), 

SICOD, IPLOT, NALF, NMDTL, (CDBMB(I),1-1,10), (CDSTR(I),I-l,10), 
&(CDTNK(1),I-1,10), (CDEXTR(I),I-1,10), (SMNBMB(I),I-l,10), 

&(SMSTRS(I),1-1,10), (SMTANK(I),1-1,10), (SMEXTR(I),I-l,10), 

&ICDO, CLLAND, CLTO, DELFLD, DELFTO, OELLED, DELLTO, LDLAND, LDTO 
6555 FORMAT(' $ACHAR'/5X,'ABOSB-',F6.3,',',2X,'ALMAX-',F6,3,',',2X, 

£'AMC-',F6.3,','/5X,'BDNOSE-',F6.3,',',IX, 'BTEF-' , F5.3, ','/ 

£5X,'CLO-',9(F5.3,','),F5.3/5X,'CLOC-',9(F5.3,','),F5.3/ 
fi5X<'CLOW-',9(F5.3,','),F5.3/5X,'CMO-',9(F5.3,','),F5.3/ 

£5X,'MACHN-',F6.3,',',2X,'RCLMAX-',F6.3,',',IX,'ROC-',F5.3,','/ 

£5X,'ROCAN-',F5.3,',',3X,'SFWF-',F5.3,',',4X,'SMNDR-',F5.3,','/ 
fi5X,'SMNSWP-',9(F5.3,','),F5.3/ 

£5X,'SPANAC-',F6.3,',',IX,'SWPMAX-',F6.3,',',IX, ' SWPMIN-',F6.3,','/ 
fi5X,'YSWP-',9(F6.3,','),F6.3/ 

£5X,'AJCAN-',II,',',7X,'ALELJ-',II,',',7X,'INORM-',11,','/ 

£5X,'ISMNDR-',II,',',6X,'ISUPCR-',II,',',6X,'ITRAP-',II,','/ 

£5X,'ELLIPC-',LI,',',6X,'ELLIPH-',LI,',',6X,'ELLIPW-',LI,','/ 
fi5X,'SEND'/' SAMULT'/ 

£5X, 'CSF-',F5.3,',',5X,'ESSF-',F5.3,',',4X,'FCDF-',F5.2,','/ 

£5X,'SEND'/' SATRIM'/ 

£5X,'CAND-',F6.3,',',3X,'CFLAP-',F6.3,', ' ,2X, ' C01-' ,F5.3, ' , ' / 
fi5X,'FLDM-',9(F6.3,','),F6.3/5X,'FVCAM-',9(F6.3, ' ,'),F6.3/ 

£5X,'IT-',F6.3,',',5X,'SFLAP-',r7.2,', ' , IX, ' SM-', F6.3, ' , ' / 

£5X,'SPANF-',F6.2,',',2X,'ZCG-',F5.2,',',5X,'IVCAM-' , II,',' / 

fi5X,'ITRIM-',9(11,','),I1/5X,'SEND'/' $ADET'/ 

fi5X, ' ALIN-',9(F4.1,','),F4.1/5X,'ALTV-',9(F6.0,','),F6.0/ 

£5X,'CLINPT-',9(F6.3,','),F6.3/5X,'SMN-',9(F5.3,','),F5.3/ 

£5X,'ICOD-',II,',',8X,'IPLOT-',II,', ' ,7X,'HALF-',12,','/ 

£5X, 'NMDTL-',12,','/5X,'SEND'/' SADRAG'/ 

£5X,'CDBMB-',9(F6.3,','),F6.3/5X,'CDSTR-',9(F6.3,','),F6.3/ 

45X,'CDTNK-',9(F6.3,','),F6.3/5X,'CDEXTR-',9(F6.3,','),F6.3/ 

£5X,'SMNBMB-',9(F5.3,','),F5.3/5X,'SMSTRS-',9(F5.3, ','),F5.3/ 

£5X,'SMTANK-',9(F5.3,','),F5.3/5X,'SMEXTR-',9(F5.3,',') , F5.3/ 

£5X,'ICDO-',II,','/5X,'SEND'/' SATAKE'/ 

£5X,'CLLAND-',F6.3,',',IX,'CLTO-',F6.3,',',3X,'DELFLD-',F6.3,','/ 
£5X,'DELFTO-',F6.3,',',IX,'DELLED-',F6.3,',',IX,'DELLTO-',F6.3,','/ 
£5X,'LDLAND-',F6.3,',',IX,'LDTO-',F6.3,','/5X,'SEND'/ 

£' SAPRINT ECHOIN-0, IPFLAP-1, IPCAN-1,'/5X,'SEND') 

RETURN 

END 
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SUBROUTINE PROP(DVTIAG) 

C- 

C - PROPULSION MODULE 

C- 

LOGICAL DVFLAG 

CHARACTER ANS*6, TITLE*80, PHASE*8 
INTEGER EN 
REAL MACHl, MACH2 
DIMENSION ALTD(6), XMACH(6) 

6590 IF(DVFLAG.EQ..FALSE.) THEN !6IVE OPTION TO BYPASS 

6600 STATUS - LIB$SPANN('CLS') 

WRITE(6,6605) 

6605 FORMAT(// 

& 7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE ENGINE CYCLE'/ 

& 7X,'ANALYSIS?'//7X,'(1) YES'/7X,'(2) NO'// 

& 7X,'SELECT 1 OR 2: ',$) 

READ(5,6606,ERR-6600) NUM 

6606 FORMAT(II) 

IF(NUM.EQ.l) GOTO 6650 
IF(NUM.NE.2) GOTO 6600 

C - TRANSFER THE $LEWIS NAMELIST FROM (10) TO (7) 

REWIND(10) 

6610 READ(10,6611) ANS 

6611 FORMAT(A6) 

IF(ANS.NE.'*** PR') GOTO 6610 
WRITE(7,6615) 

6615 FORMAT('*** PROPULSION DATA ***') 

DO 6630 1-1,30 

READ(10,6616) TITLE 

6616 FORMAT(A80) 

WRITE(7,6616) TITLE 

6630 CONTINUE 
RETURN 
ENDIF 

C - NAMELIST LEWIS 

6650 IF(DVFLAG.EQ..FALSE.) THEN 
REWIND(10) 

6660 READ(10,6611,END-6690) ANS 

IF(ANS.NE.'*** PR') GOTO 6660 

READ(10,6670) ITYPE, AENDIA, AENLE, AENWT, ATURB, 

& BA, DIAl, FRBT, FRPN, HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 

£ SMI, SODG, VCl, WCWAl, YREN, ESF, TWAB, TWOAB, TWTO, EABl, 
i EBl, EDI, ETACl, ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 

£ R54N, R711, R711N, SCPR, DELT57, T3, T51, T71, DELPR, RlOA, 

£ MACHl, MACH2, SFBTP, SFINSP, SFIP, SFSFCl, SFSFC2, SFSFC3, 

£ (ALTD(I),I-1,6), (XMACH(I),I-1,6), DEPWCC, EN, IPR, KODE, 

£ KT5, KT7, NOZ2, NPUSE, IPLOT, IPRINT, KERROR, MINPR, MODPRT, 

£ NAB, NDTAIL, NSUMM, ALTI, AM, POSA, TOSA 

6670 FORMAT(Il//12X,F7.3,7X,F7.3,8X,F8.2/26X,F6.3,6X,F6.3/ iARERTO 

£ 10X,F6.3,9X,F6.3,9X,F6.3/9X,F6.3,9X,F10.2,8X,F6.3/ 

£ 10X,r7.3,9X,F6.3,9X,r6.3/9X,F6.3,10X,F6.3,8X,F6.3/ 

£ 11X,F6.3,8X,F5.2,9X,F5.2/10X,F8.1,8X,F8.1,6X,F5.2/ 

£ lOX,F5.3,9X,F5.3,lOX,F5.3/llX,F5.3,lOX,F5.3,lOX,F5.3/ 

£ 10X,F6.3,10X,F6.3,8X,r6.3/9X,F6.3,9X,r6.3,10X,F6.3/ 

£ 10X,F6.3,10X,F6.3,8X,F6.3/12X,F7.2,4X,F8.2,8X,F8.2/ 

£ 9X,F8.2,9X,F7.2,7X,F4.1/11X,F6.3,9X,F6.3,9X,F6.3/ 

£ 12X,F6.3,7X,F6.3,IIX,r6.3/12X,F6.3,9X,F6.3/lOX,6F8.1/ 

£ IIX,6F7.3/12X,F6.3,5X,12,14X,12/lOX,II,13X,12,13X,12/ 

£ lOX,II,15X,II,14X,I1/12X,II,14X,II,13X,11/ 
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& 12X,II,IIX,II,17X,I2/11X,12,12X,F3.1,lOX,F3.1/ 

& 10X,F5.2,10X,F5.1) 

ENDIF 

IF(DVFLAG.EQ..TRUE.) ITTPE-6 
6690 STATUS - 'jIB$SPAWN('CLS') 

WRITE(6,6695) ITYPE 
6695 FORMAT (/ 

&7X,'SELECT THE ENGINE TYPE THAT IS CLOSEST TO YOUR DESIGN.'/ 

47X,'YOU CAN THEN ALTER THE VARIABLES TO SUIT YOUR NEEDS.'// 
fi7X,'** CAUTION ** MAKING A CHANGE OF ENGINE TYPE WILL'/ 

&7X,'DESTROY ANY ENGINE VARIABLES THAT YOU PREVIOUSLY SET'/ 

&7X,'AND RESET THEM FOR THE NEW ENGINE TYPE. (YOU WILL NEED'/ 

&7X,'TO GO THROUGH EACH ENGINE PAGE AND REENTER THE VALUES)'// 
fi7X,'ENGINE TYPE: ',11/ 

S.7X, ' 1 - J85 (TURBOJET, 2700 LBS THRUST) ' / 

&7X,'2 - TF30 (TURBOFAN, 0.7 BYPASS, 14500 LBS THRUST)'/ 

&7X,'3 - JT8D (TURBOFAN, 1.0 BYPASS, 14500 LBS THRUST)'/ 

&7X,'4 - JT9D (TURBOFAN, 8.2 BYPASS, 50000 LBS THRUST)'/ 

&7X,'5 - CF6 (TURBOFAN, 4.4 BYPASS, 50000 LBS THRUST)'/ 

&7X,'6 - GENERIC (TURBOFAN, 6.2 BYPASS, 9300 LBS THRUST)'// 
fi7X,'(1) CHANGE ENGINE TYPE'/7X,'(2) NO CHANGE'// 

&7X,'SELECT 1 OR 2: ',$) 

READ(5,6606,ERR-6690) NUM 

IF((NUM.NE.l).AND.(NUM.NE.2)) GOTO 6690 

IF((NUM.EQ.2).AND.(DVFLAG.EQ..TRUE.)) THEN 

CALL LEWIS(ITYPE, AENDIA, AENLE, AENWT, ARERTO, ATURB, 

& BA, DIAl, FRBT, FRPN, HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 

& SMI, SODG, VCl, WCWAl, YREN, ESF, TWAB, TWOAB, TWTO, EABl, 

& EBl, EDI, ETACl, ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 

& R54N, R711, R711N, SCPR, DELT57, T3, T51, T71, DELPR, RlOA, 

& MACHl, MACH2, SFBTP, SFINSP, SFIP, SFSFCl, SFSFC2, SFSFC3, 

& ALTD, XMACH, DEPWCC, EN, IPR, KODE, KT5, KT7, NOZ2, NPUSE, 

& IPLOT, IPRINT, KERROR, MINPR, MODPRT, NAB, NDTAIL, NSUMM, ALTI, 
& AM, POSA, TOSA) 

GOTO 6720 
ENDIF 

IF(NUM.EQ.2) GOTO 6720 
IF(NUM.EQ.l) THEN 
6700 WRITE(6,6705) 

6705 FORMAT(/7X,'ENTER THE NEW ENGINE TYPE (1,2,3,4,5, OR 6): ',$) 
READ(5,6606,ERR-6700) ITYPE 
IF((ITYPE.LT.l).OR.(ITYPE.GT.6)) GOTO 6700 
CALL LEWIS(ITYPE, AENDIA, AENLE, AENWT, ARERTO, ATURB, 

5 BA, DIAl, FRBT, FRPN, HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 

6 SMI, SODG, VCl, WCWAl, YREN, ESF, TWAB, TWOAB, TWTO, EABl, 

& EBl, EDI, ETACl, ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 

& R54N, R711, R711N, SCPR, DELT57, T3, T51, T71, DELPR, RlOA, 

& MACHl, MACH2, SFBTP, SFINSP, SFIP, SFSFCl, SFSFC2, SFSFC3, 

& ALTD, XMACH, DEPWCC, EN, IPR, KODE, KT5, KT7, NOZZ, NPUSE, 

& IPLOT, IPRINT, KERROR, MINPR, MODPRT, NAB, NDTAIL, NSUMM, ALTI, 
& AM, POSA, TOSA) 

GOTO 6690 
ENDIF 


C - ENGINE PAGE 1 


6720 STATUS - LIB$SPAWN('CLS') 

WRITE(6,6725) AENDIA, AENLE, AENWT, ATURB, BA, DIAl, 
&FRBT, FRPN 
6725 FORMAT(/ 
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&7X,'** PROPULSION PAGE 1 **'// 

S7X,'(1) ACTUAL ENGINE DIAMETER (FT).',F7,3/ 

fi7X,'(2) ACTUAL ENGINE LENGTH (FT).',F7,3/ 

«7X,'(3) ACTUAL ENGINE WEIGHT (LBS).',F8.2/ 

fi7X,'(4) INNER TURBINE FLOW AREA (FT2).',F6.3/ 

&7X,M5) BYPASS RATIO.',F6.3/ 

S7X,'(6) ENGINE FACE DIAMETER (FT). ’,T6.3/ 

fi7X,'(7) NOZZLE FINENESS RATIO.',F6.3/ 

fi7X,'(8) COWL FINENESS RATIO.Sf6.3// 


«7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,6606,ERR-6720) NUM 
IF(NUM.EQ.O) GOTO 6840 

GOTO (6740, 6750, 6760, 6780, 6790, 6800, 6810, 6820) ,NUM 
GOTO 6720 
6740 WRITE(6,6745) 

6745 FORMAT(/7X,'ENTER THE ENGINE DIAMETER. IF 0.0 IS USED, THE'/ 
fi7X,'ENGINE WILL BE SIZED AUTOMATICALLY (FEET): ',$) 

READ(5, 6746,ERR->6740) AENDIA 

6746 FORMAT(F7.3) 

IF((AENDIA.lt.0.0).OR.(AENDIA.GT.30.0)) GOTO 6740 
GOTO 6720 
6750 WRITE(6,6755) 

6755 FORMAT(/7X,'ENTER THE ENGINE LENGTH. IF 0.0 IS USED, THE'/ 
&7X,'ENGINE WILL BE SIZED AUTOMATICALLY (FEET): ',$) 

READ(5,6746,ERR-6750) AENLE 

IF((AENLE.lt.0.0).OR.(AENLE.GT.60.0)) GOTO 6750 
GOTO 6720 
6760 WRITE(6,6765) 

6765 FORMAT(/7X,'ENTER THE ENGINE WEIGHT. IF 0.0 IS USED, THE'/ 
&7X,'ENGINE WILL BE SIZED AUT(X4ATICALLY (LBS): ',$) 

READ(5,6766,ERR<-6760) AENWT 

6766 FORMAT(F8.2) 

IF((AENWT.lt.0.0).OR.(AENWT.GT.100000)) GOTO 6760 
GOTO 6720 
6780 WRITE(6,6785) 

6785 FORMAT(/7X,'ENTER THE INNER TURBINE FLOW AREA (FT2): ',$) 
READ(5,6786,ERR-6780) ATURB 

6786 FORMAT(F6.3) 

IF((ATURB.LE.0.0).OR.(ATURB.GT.10.0)) GOTO 6780 
GOTO 6720 
6790 WRITE(6,6795) 

6795 FORMAT(/7X,'ENTER THE BYPASS RATIO: ',$) 
READ(5,6786,ERR<-6790) BA 
IF((BA.LT.0.0).OR.(BA.GT.30.0)) GOTO 6790 
GOTO 6720 
6800 WRITE(6,6805) 

6805 FORMAT(/7X,'ENTER THE ENGINE FACE DIAMETER (FT): ',$) 
READ(5,6786,ERR-6800) DIAl 

IF((DIAI.LT.0.0).OR.(DIAl.GT.30.0)) GOTO 6800 
GOTO 6720 
6810 WRITE(6,6815) 

6815 FORMAT(/7X,'ENTER THE NOZZLE FINENESS RATIO '/ 

&7X,'(NOZZLE LENGTH/NOZZLE MAX DIAMTER): ',$) 
READ(5,6786,ERR-6810) FRBT 
IF(FRBT.LT.O.O) GOTO 6810 
GOTO €720 
6820 WRITE(6,6825) 

6825 FORMAT(/7X,'ENTER THE COWL FINENESS RATIO'/ 

S7X,'(COWL LENGTH/COWL MAX DIAMETER): ',$) 
READ(5,6786,ERR-6820) FRPN 
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ir(FRPN.LT.O.O) GOTO 6820 
GOTO 6720 


- PROPULSION PAGE 2 

6840 STATUS - LIB$SPA?«N ('CLSM 

WRITE(6,6845) HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 


SSMl, SODG, VCl 
6845 FORMAT(/ 

fc7X,PROPULSION PAGE 2 **'// 

&7X,'(1) ENGINE HUB/TIP RATIO.',F6.3/ 

fi7X, M2) FUEL HEAT VALUE (BTU/LBM).',*'10.2/ 

S7X,'(3) SCALING FACTOR FOR INLET CAPTURE AREA.',F6.3/ 

67X, M4) ENGINE PERCENT CORRECTED AIRFLOW. ' .3/ 

fi7X, M5) MAXIMUM NACELLE DIAMETER FACTOR.',F6.3/ 

&7X, ' (6) TOTAL NACELLE LENGTH FACTOR. ' ,F6.3/ 

&7X, M7) ENGINE FACE MACH NUMBER. ',F6.3/ 

&7X,M8) DISTANCE BETWEEN NOZZLES/NOZZLE DIAMETER_',^6.3/ 

fi7X,M9) NOZZLE VELOCITY COEFFICIENT. ',F6.3// 


i7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE; ',$) 

READ(5,6606,ERR-6840) NUM 
IF{NUM.EQ.O) GOTO 7000 

GOTO (6860, 6870, 6880, 6890, 6900, 6910, 6920, 6930, 6940) ,NUM 
GOTO 6840 
6860 WRITE(6,6865) 

6865 FORMAT(/7X,'ENTER THE ENGINE HUB/TIP RATIO: ',$) 

READ(5,6786,ERR-6860) HTR 
IF((HTR.LE.0.0).OR.(HTR.GE.I.O)) GOTO 6860 
GOTO 6840 
6870 WRITE(6,6875) 

6875 FORMAT(/7X,'ENTER THE FUEL HEAT VALUE (BTU/LBM); ',$) 
READ(5,6876,ERR-6870) HVF 

6876 FORMAT(FIO.2) 

IF((HVF.LT.14000.0).OR.(HVF.GT.22000.0)) GOTO 6870 
GOTO 6840 
6880 WRITE(6,6885) 

6885 FORMAT(/7X,'ENTER THE SCALING FACTOR FOR THE INLET'/ 

47X,'CAPTURE AREA: ',$) 

READ(5,6786,ERR-6880) PCDFAC 

IF((PCDFAC.LT.0.5).OR.(PCDFAC.GT.1.5)) GOTO 6880 
GOTO 6840 
6890 WRITE(6,6895) 

6895 FORMAT(/7X,'ENTER THE ENGINE PERCENT CORRECTED AIRFLOW: ',$) 
READ(5,6896,ERR-6890) PWCC 

6896 FORMAT(F5.3) 

IF((PWCC.LT.50.0).OR.(PWCC.GT.150.0)) GOTO 6890 
GOTO 6840 
6900 WRITE(6,6905) 

6905 FORMAT(/7X,'ENTER THE MAXIMUM NACELLE DIAMETER FACTOR. '/ 

&7X,'(ENGINE DIAMETER * DIAMETER FACTOR - NACELLE DIAMETER): ' 

&,$) 

READ(5,6786,ERR>6900) ROIAM 

IF((RDIAM.lt.1.0).OR.(RDIAM.GT.2.0)) GOTO 6900 
GOTO 6840 
6910 WRITE(6,6915) 

6915 FORMAT(/7X,'ENTER THE NACELLE LENGTH FACTOR. (ENGINE'/ 
i7X,' LENGTH * LENGTH FACTOR - NACELLE LENGTH): ',$) 

READ(5,6786,ERR-6910) RLENG 

IF((RLENG.LT.1.0).OR.(RLENG.GT.3.0)) GOTO 6910 
GOTO 6840 
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6920 WRITE(6,6925) 

6925 FORMAT(/7X,'ENTER THE ENGINE FACE MACH NUMBER: ',$) 
READ(5,6786,ERR-6920) SMI 

IF<(SMI.LE.0.0).OR.(SMl.GT.2.0)) GOTO 6920 
GOTO 6840 
6930 WRITE(6,6935) 

6935 FORMAT(/7X,'ENTER THE DISTANCE BETWEEN THE EXHAUST NOZZLES'/ 

67X,'DIVIDED BY THE NOZZLE EXIT DIAMETER: ',$) 
READ(5,6786,ERR-6930) SODG 
IF(SODG.LT.l.O) GOTO 6930 
GOTO 6840 
6940 WRITE(6,6945) 

6945 FORMAT(/7X,'ENTER THE NOZZLE VELOCITY COEFFICIENT: ',$) 
READ(5,6786,ERR-6940) VCl 

IF((VCI.LT.0.6).OR.(VCl.GT.l.O)) GOTO 6940 
GOTO 6840 

C- 

C - PROPULSION PAGE 3 

-- 

7000 STATUS - LIBSSPAWN('CLS') 

WRITE(6,7005) WCWAl, YREN, TWAB, TWOAB, TWTO, EABl, EBl, EDI, 


4ETAC1 

7005 FORMAT(/ 

S7X,'** PROPULSION PAGE 3 **'// 

i7X,' (1) COOLING/PRIMARY AIRFLOW RATIO.',F6.3/ 

&7X, ' (2) YEAR OF ENGINE INSTALLATION.',F5.2/ 

S7X,'(3) THRUST W/AFTERBURNER AT SEA-LEVEL.F8.1/ 

<17X, ' (4) THRUST W/0 AFTERBURNER AT SEA-LEVEL. ' ,F8.1/ 

fi7X, ' (5) THRUST/WEIGHT RATIO AT TAKE-OFF.',F5.2/ 

t7X, ' (6) AFTERBURNER ADIABATIC EFFICIENCY.',F5.3/ 

47X,'(7) COMBUSTER ADIABATIC EFFICIENCY.',F5.3/ 

47X,'(8) DUCT BURNER ADIABATIC EFFICIENCY.',P5.3/ 

fi7X,' (9) COMPRESSOR ADIABATIC EFFICIENCY.',F5.3// 


S7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,6606,ERR-7000) NUM 
IF(NDM.EQ.O) GOTO 7130 

GOTO (7020, 7030, 7040, 7050, 7060, 7070, 7080, 7090, 7100) ,NUM 
GOTO 7000 
7020 WRITE(6,7025) 

7025 FORMAT(/7X,'ENTER THE COOLING/PRIMARY AIRFLOW RATIO: ',$) 

READ(5,6786,ERR-7020) WCWAl 

IF((WCWA1.lt. 0.0).OR.(WCWAl.GT.0.2)) GOTO 7020 
GOTO 7000 
7030 WRITE(6,7035) 

7035 FORMAT(/7X,'ENTER THE YEAR OF ENGINE INSTALLATION'/ 

47X,'(IF THE YEAR IS 1991, ENTER "91"): ',$) 

READ(5,7036,ERR-7030) YREN 

7036 FORMAT(F5.2) 

GOTO 7000 

7040 WRITE(6,7045) 

7045 FORMAT(/7X,'ENTER THE ENGINE THRUST WITH AFTERBURNER ON AT'/ 

47X,'SEA-LEVEL, STATIC. (THE ENGINE SIZING FLAG SHOULD BE SET'/ 
47X,'TO -2 IN THE TRAJECTORY MODULE): ',$) 

READ(5,7046,ERR-7040) TWAB 

7046 FORMAT(F8.1) 

IF((TWAB.LT.0.0).OR.(TWAB.GT.999999.0)) GOTO 7040 
GOTO 7000 
7050 WRITE(6,7055) 

7055 FORMAT(/7X,'ENTER THE ENGINE THRUST WITHOUT AFTERBURNER AT'/ 

47X,'SEA-LEVEL, STATIC. (THE ENGINE SIZING FLAG SHOULD BE SET'/ 
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S7X,'TO -3 IN THE TRAJECTORY MODULE): ',$) 
READ(5,7046,ERR-7050) TWOAB 

ir((TWOAB. lt.0.0).OR.(TWOAB.GT.999999.0)) GOTO 7050 
GOTO 7000 
7060 WRITE(6,7065) 

7065 FORMAT(/7X,'ENTER THE THRUST/WEIGHT RATIO AT TAKE-OFF. (THE'/ 
fi7X,'ENGINE SIZING FLAG SHOULD BE SET TO 0 OR -1 IN THE'/ 
fi7X,'TRAJECTORY MODULE): ',$) 

READ(5,7036,ERR-7060) TWTO 

IF((TWTO.LE.0.0).OR.(TETO.GT.10.0)) GOTO 7060 
GOTO 7000 
7070 WRITE(6,7075) 

7075 FORMAT(/7X,'ENTER THE AFTERBURNER ADIABATIC EFFICIENCY: ',$) 
READ(5,6896,ERR-7070) EABl 

IF((EABl.LT.0.6).OR.(EABl.GT.1.0)) GOTO 7070 
GOTO 7000 
7080 WRITE(6,7085) 

7085 FORMAT(/7X,'ENTER THE CC»IBUSTER ADIABATIC EFFICIENCY: ',$) 
R£AD(5,6896,ERR-7080) EBl 

IF((EBl.LT.0.6).OR.(EBl.GT.1.0)) GOTO 7080 
GOTO 7000 
7090 WRITE(6,7095) 

7095 FORMAT(/7X,'ENTER THE DUCT BURNER ADIABATIC EFFICIENCY: ',$) 
READ(5,6896,ERR-7090) EDI 

1F((ED1.LT.0.6).OR.(EDl.GT.1.0)) GOTO 7090 
GOTO 7000 
7100 WRITE(6,7105) 

7105 FORMAT(/7X,'ENTER THE COMPRESSOR ADIABATIC EFFICIENCY: ',$) 
READ(5,6896,ERR-7100) ETACl 

IF((ETAC1.LT.0.6).OR.(ETACl.GT.1.0)) GOTO 7100 
GOTO 7000 


- PROPULSION PAGE 4 


7130 STATUS • LIBSSPAWN('CLS') 

WRITE(6,7135) ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 


SR54N, R711, R711N 
7135 FORMAT(/ 

i7X,'** PROPULSION PAGE 4 **'// 

67X,'(1) FAN ADIABATIC EFFICIENCY. ',F5.3/ 

&7X,'(2) TURBINE ADIABATIC EFFICIENCY. ',F5.3/ 

67X,'(3) DESIGN FAN PRESSURE RATIO. ',F6.3/ 

S7X,'(4) OUTER CC»lPRESSOR PRESSURE RATIO. ',F6.3/ 

S7X,'(5) OVERALL COMPRESSOR PRESSURE RATIO. ',F6.3/ 

&7X,'(6) COMBUSTER PRESSURE RATIO. ',F6.3/ 

fi7X,'(7) AFTERBURNER PRESSURE RATIO. ',F6.3/ 

67X,'(8) AFTERBURNER PRESSURE RATIO W/O AB LIT...',F6.3/ 

S7X,'(9) DUCTBURNER PRESSURE RATIO. ',F6.3/ 


&7X,'(10) DUCTBURNER PRESSURE RATIO W/O DB LIT_ ',F6.3// 

67X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,7136,ERR-7130) NUM 
7136 FORMAT(12) 

IF(NUM.EQ.O) GOTO 7270 

GOTO (7150, 7160, 7170, 7180, 7190, 7200, 7210, 7220, 7230, 7240) 
&,NUM 
GOTO 7130 
7150 WRITE(6,7155) 

7155 FORMAT(/7X,'ENTER THE FAN ADIABATIC EFFICIENCY; ',$) 

READ(5,6896,ERR-7150) ETAFl 

IF((ETAFl.LT.0.6).OR.(ETAFl.GT.1.0)) GOTO 7150 
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GOTO 7130 
7160 WRITE(6,7165) 

7165 FORMAT(/7X,'ENTER THE TURBINE ADIABATIC EFFICIENCY: ',$) 
READ(5,6896,ERR->7160) ETATl 

IF( (ETATl.I.T.0.6) .OR. (ETATl.GT.1.0)) GOTO 7160 
GOTO 7130 
7170 WRITE(6,7175) 

7175 FORMAT(/7X,'ENTER THE DESIGN FAN PRESURE RATIO: ',$) 
READ(5,6786,ERR-7170) PRFD 

IF((PRFD.LT.1.0).OR.(PRFD.GT.10.0)) GOTO 7170 
GOTO 7130 
7180 WRITE(6,7185) 

7185 FORMAT{/7X,'ENTER THE OUTER COMPRESSOR PRESSURE RATIO: ',$) 
READ(5,6786,ERR-7180) PllPl 

IF((P11P1.lt. 1.0).OR.(PllPl.GT.15.0)) GOTO 7180 
GOTO 7130 
7190 WRITE(6,7195) 

7195 FORMAT(/7X,'ENTER THE OVERALL COMPRESSOR PRESSURE RATIO: ',$) 
READ(5,6786,ERR-7190) P2P1 

IF((P2P1.lt.3.0).OR.(P2P1.GT.50.0)) GOTO 7190 
GOTO 7130 
7200 WRITE(6,7205) 

7205 FORMAT(/7X,'ENTER THE COMBUSTER PRESSURE RATIO: ',$) 
READ(5,6786,ERR-7200) R32 

IF((R32.LT.0.6).OR.(R32.GT.1.0)) GOTO 7200 
GOTO 7130 
7210 WRITE(6,7215) 

7215 FORMAT(/7X,'ENTER THE AFTERBURNER PRESSURE RATIO: ',$) 
READ(5,6786,ERR-7210) R54 

IF((R54.lt.0.6).OR.(R54.GT.1.0)) GOTO 7210 
GOTO 7130 
7220 WRITE(6,7225) 

7225 FORMAT(/7X,'ENTER THE AFTERBURNER PRESSURE RATIO WITHOUT'/ 
«7X,'THE AFTERBURNER LIT: ',$) 

READ(5, 6786,ERR*>7220) R54N 

IF((R54N.LT.0.6).OR.(R54N.GT.1.0)) GOTO 7220 
GOTO 7130 
7230 WRITE(6,7235) 

7235 FORMAT(/7X,'ENTER THE DUCTBURNER PRESSURE RATIO: ',$) 
RBAD(5,6786,ERR-7230) R711 

IF((R711.LT.0.6).OR.(R711.GT.1.0)) GOTO 7230 
GOTO 7130 
7240 WRITE(6,7245) 

7245 FORMAT(/7X,'ENTER THE DUCTBURNER PRESSURE RATIO WITHOUT THE'/ 
47X,'DUCTBURNER LIT: ',$) 

READ(5,6786,BRR-7240) R711N 

IF((R711N.lt.0.6).OR.(R711N.GT.1.0)) GOTO 7240 
GOTO 7130 


- PROPULSION PAGE 5 


7270 STATUS - LIB$SPAWN('CLS') 

WRITE(6,7275) SCPR, T3, T51, T71, DBLPR, EN, IPR 
7275 FORMAT(/ 

&7X,'** PROPULSION PAGE 5 **'// 

t7X,'(l) AVERAGE COMPRESSOR STAGE RISE (PSI). ',F6.3/ 

47X,'(2) TURBINE INLET TEMPERATURE (DEGREES R) .',F8.2/ 

i7X,'(3) AFTERBURNER MAX TEMPERATURE (DEGREES R)...',F8.2/ 

&7X,'(4) DUCTBURNER MAX TEMPERATURE (DEGREES R)_ ',F8.2/ 

47X,'(5) INCREMENTAL INLET TOTAL PRESSURE'/ 













&7X, ' RECOVERY REDUCTION. ' ,T1.2/ 

S7X, ' (6) NUMBER OF ENGINES.',12/ 

S7X,'(7) INLET PRESSURE RECOVERY CODE.',12// 


47X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,6606,ERR-7270) NUM 
IF(NUM.EQ.O) GOTO 7400 

GOTO (7290, 7300, 7310, 7320, 7330, 7340, 7350) ,NUM 
GOTO 7270 
7290 WRITE(6,7295) 

7295 FORMAT(/7X,'ENTER THE AVERAGE COMPRESSOR STAGE RISE: ',$) 

READ(5,6786,ERR-7290) SCPR 

IF((SCPR.LT.1.0).OR.{SCPR.GT.3.0)) GOTO 7290 
GOTO 7270 
7300 WRITE(6,7305) 

7305 FORMAT(/7X,'ENTER THE TURBINE INLET TEMPERATURE (DEGREES R): ' 

&,$) 

RBAD(5,6766,ERR-7300) T3 

IF((T3.LT.1500.0).OR.(T3.GT.4000.0)) GOTO 7300 
GOTO 7270 
7310 WRITE(6,7315) 

7315 FORMAT(/7X,'ENTER THE AFTERBURNER MAX TEMPERATURE'/ 

&7X,' (ENTER 0.0 IF NO AB) (DEGREES R): ',$) 
READ(5,6766,ERR-7310) T51 
IF(T51.lt.0.0) GOTO 7310 
GOTO 7270 
7320 WRITE(6,7325) 

7325 FORMAT(/7X,'ENTER THE DUCTBURNER MAX TEMPERATURE'/ 

&7X,'(ENTER 0.0 IF NO DB) (DEGREES R): ',$) 
READ(5,6766,ERR-«7320) T71 
IF(T71.lt.0.0) GOTO 7320 
GOTO 7270 
7330 WRITE(6,7335) 

7335 FORMAT(/7X,'ENTER THE INCREMENTAL INLET TOTAL PRESSURE'/ 

47X,'RECOVERY REDUCTION. INPUT AS A POSITIVE NUMBER (PSI) : ',$) 
READ(5,7336,ERR-7330) DELPR 

7336 FORMAT(r7.2) 

IF((DELPR.LT.0.0).OR.(DELPR.GT.1.0)) GOTO 7330 
GOTO 7270 
7340 WRITE(6,7345) 

7345 FORMAT(/7X,'ENTER THE NUMBER OF ENGINES: ',$) 
READ(5,7136,ERR-7340) EN 
IF((EN.LT.l).OR.(EN.GT.IO)) GOTO 7340 
GOTO 7270 
7350 WRITE(6,7355) 

7355 FORMAT(/7X,'ENTER THE INLET PRESSURE RECOVERY CODE'/ 

47X,'(1 - AIA RAM RECOVERY)'/ 

&7X,' (2 - MILSPEC-5008B) ' / 

S7X,'(3 - NORMAL SHOCK)'/ 

47X,'(4 - TABLE LOOK-UP): ',$) 

REAP(5,7136,ERR-7350) IPR 

IF((IPR.LT.l).OR.(IPR.GT.4)) GOTO 7350 

GOTO 7270 

C- 

C - PROPULSION PAGE 6 

C- 

7400 STATUS - LIB$SPAWN('CLS') 

WRITE(6,7405) SFSFCl, MACHl, SFSFC2, MACH2, SFSFC3, SFBTP, 
&SFINSP, SFIP 
7405 FORMAT(/ 

67X,'** PROPULSION PAGE 6 **•// 
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i7X,' (1) SFC MULTIPLYING FACTOR FOR CONDITION ONE. ',F6.3/ 

S7X,'(2) UPPER LIMIT ON MACH NUMBER FOR CONDITION ONE.,',F6.3/ 

fi7X,' (3) SFC MULTIPLYING FACTOR FOR CONDITION TWO.',F6.3/ 

i7X,'(4) LOWER LIMIT ON MACH HUMBER FOR CONDITION TWO..',F6.3/ 

fi7X,' (5) SFC MULTIPLYING FACTOR FOR BURNER LIT.',F6.3/ 

«7X, ' (6) SCALE FACTOR FOR NOZZLE BOAT-TAIL DRAG.',F6.3/ 

47X,' (7) SCALE FACTOR FOR TOTAL INSTALLATION DRAG.',F6.3/ 

&7X,M8) SCALE FACTOR FOR NOZZLE INTERFERENCE DRA . ',F6.3// 

&7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,6606,ERR-7400) HUM 
IF(NUM.EQ.O) GOTO 7510 


GOTO (7420, 7430, 7440, 7450, 7460, 7470, 7480, 7490) ,NUM 
GOTO 7400 
7420 WRITE(6,7425) 

7425 FORMAT(/7X,'ENTER THE SPECIFIC FUEL CONSUMPTION MULTIPLYING'/ 
67X,'FACTOR FOR THE FIRST CONDITION: ',$) 

READ(5,6786,ERR-7420) SFSFCl 

IF((SFSFC1.lt. 0.3).OR.(SFSFCl.GT.3.0)) GOTO 7420 
GOTO 7400 
7430 WRITE(6,7435) 

7435 FORMAT(/7X,'ENTER THE UPPER LIMIT ON MACH NUMBER FOR THE'/ 
47X,'FIRST CONDITION: ',$) 

REAO(5,678€,ERR-7430) MACHl 

IF ((MACH1.lt. 0.0).OR.(MACHl.GT.3.0)) GOTO 7430 
GOTO 7400 
7440 WRITE(6,7445) 

7445 FORMAT(/7X,'ENTER THE SPECIFIC FUEL CONSUMPTION MULTIPLYING'/ 
47X,'FACTOR FOR THE SECOND CONDITION: ',$) 
REAO(5,6786,ERR-7440) SFSFC2 

IF((SFSFC2.lt.0.3).OR.(SFSFC2.GT.3.0)) GOTO 7440 
GOTO 7400 
7450 WRITE(6,7455) 

7455 FORMAT(/7X,'ENTER THE LOWER LIMIT ON MACH NUMBER FOR THE'/ 
47X,'SECOND CONDITION (MUST BE GREATER THAN THE MACH NUMBER'/ 
47X,'LIMIT ON CONDITION ONE); ',$) 

READ(5,6786,ERR-7450) MACH2 

IF(((MACH2.lt. 0.0).OR.(MACH2.GT.3.0)).OR.(MACH2.LT.MACHl)) 
4GOTO 7450 
GOTO 7400 
7460 WRITE(6,7465) 

7465 FORMAT(/7X,'ENTER THE SPECIFIC FUEL CONSUMPTION MULTIPLYING'/ 
47X,'FACTOR FOR AFTERBUROTR LIT: ',$) 

READ(5,6786,ERR-7460) SFSFC3 

IF( (SFSFC3.lt. 0.3).OR.(SrSrC3.GT.10.0)) GOTO 7460 
GOTO 7400 
7470 WRITE(6,7475) 

7475 FORMAT(/7X,'ENTER THE SCALE FACTOR FOR THE NOZZLE'/ 

47X,' BOAT-TAIL DRAG: ',$) 

READ(5,6786,ERR-7470) SFBTP 

IF( (SFBTP.lt. 0.0).OR.(SFBTP.GT.2.0)) GOTO 7470 
GOTO 7400 
7480 WRITE(6,7485) 

7485 FORMAT(/7X,'ENTER THE SCALE FACTOR FOR THE TOTAL'/ 

47X,'INSTALLATION DRAG: ',$) 

READ(5,6786,ERR-7480) SFINSP 

IF((SFINSP.lt.0.0).OR.(SFINSP.GT.2.0)) GOTO 7480 
GOTO 7400 
7490 WRITE(6,7495) 

7495 FORMAT(/7X,'ENTER THE SCALE FACTOR FOR THE NOZZLE'/ 

47X,'INTERFERENCE DRAG: ',$) 
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REA0(5,6786,ERR-7490) SFXP 

ir((SFIP.LT.O.O).OR.(SFIP.GT.2.0)) GOTO 7490 
GOTO 7400 


- PROPULSION PAGE 7 


7510 STATUS - LIB$SPAWN('CLS') 

WRITE(6,7515) (ALTD(I),1-1,6), (XMACH(I),I-l,6), NAB, KODE, 
fiKT5, KT7, NOZZ 
7515 FORMAT(/ 

fi7X,'** PROPULSION PAGE 7 **'// 

i7X,'(1) ALTITUDES FOR DETAILED OUTPUT (FT); ',2(F7.1,',')/ 
&11X,3(F7.1,','),F7.1// 

&7X,'(2) MACH NUMBERS FOR DETAILED OUTPUT: ',2 (F6.3,',')/ 
&11X,3(F6.3,','),F6.3// 

S7X,'(3) NUMBER OF ALT/MACH C<»IBINATIONS WITHOUT AB LIT..',12/ 


fi7X,'(4) ENGINE TYPE INDICATOR.',11/ 

i7X,' (0 - TURBOJET, 2 - TURBOFAN)'/ 

&7X,'(5) AFTERBURNER INDICATOR.',12/ 

fi7X,'(6) DUCTBURNER INDICATOR.',12/ 

&7X,'(7) NOZZLE TYPE INDICATOR.',11/ 


S/' SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 

READ(5,6606,ERR-7510) NUM 
IF(NUM.EQ.O) GOTO 7600 

GOTO (7530, 7540, 7550, 7560, 7570, 7580, 7590) ,NUM 
GOTO 7510 
7530 WRITE(6,7535) 

7535 FORMAT(/7X,'ENTER THE ARRAY OF ALTITUDES FOR THE DETAILED'/ 
S7X,'OUTPUT (UP TO 6). PUT A BETWEEN EACH NUMBER. '/ 

4IX,'ALTITUDES: ',$) 

READ(5,7536,ERR-7530) (ALTD(I),I-l,6) 

7536 FORMAT(6F8.1) 

DO 7537 1-1,6 

IF((ALTD(I).LT.0.0).OR.(ALTD(I).GT.99999.0)) GOTO 7530 

7537 CONTINUE 
GOTO 7510 

7540 WRITE(6,7545) 

7545 FORMAT(/7X,'ENTER THE ARRAY OF MACH NUMBERS FOR THE DETAILED'/ 
S7X,'OUTPUT (UP TO 6). THESE SHOULD BE MATCHED TO THE'/ 

67X,'ALTITUDES. PUT A BETWEEN EACH NUMBER. '/ 

41X,'MACH: ',$) 

READ(5,7546,ERR-7540) (XMACH(I),I-l,6) 

7546 FORMAT(6F6.3) 

DO 7547 1-1,6 

IF((XMACH(I).LT.0.0).OR.(XMACH(I).GT.3.0)) GOTO 7540 

7547 CONTINUE 
GOTO 7510 

7550 WRITE(6,7555) 

7555 FORMAT(/7X,'ENTER THE NUMBER OF ALTITUDE/MACH NUMBER'/ 

47X,'COMBINATIONS IN THE ARRAYS ABOVE THAT DO NOT HAVE THE'/ 
47X,'AFTERBURNER/DUCTBURNER LIT, (IF THERE ARE 4 ALT/MACH'/ 

47X,'COMBINATIONS AND "3" IS ENTERED HERE, THEN THE LAST'/ 

47X,'COMBINATION WILL HAVE A LIT BURNER): ',$) 
READ(5,6606,ERR-7550) NAB 
IF((NAB.GT.6).OR.(NAB.LT.O)) GOTO 7550 
GOTO 7510 
7560 WRITE(6,7565) 

7565 FORMAT(/7X,'ENTER THE ENGINE TYPE INDICATOR'/ 

47X,'0 - TURBOJET'/ 

47X,'2 - TURBOFAN: ',$) 
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READ(5,6606,ERR-7560) KODE 
ir((KODE.NE.O).AND.(KODE.NE.2)) GOTO 7560 
GOTO 7510 
7570 WRITE(6,7575) 

7575 FORMAT(/7X,'ENTER THE AFTERBURNER INDICATOR'/ 

S7X,' 0 - NO AB'/ 

&7X,'-X - AB PRESENT, NOT LIT'/ 
t7X,' 2 - AB LIT: ',$) 

READ(5,7136,ERR-7570) KT5 

IF((KT5.NE.0).AND.<KT5.HE.-1).AND.(KT5.NE.2)) GOTO 7570 
GOTO 7510 
7580 WRITE(6,7585) 

7585 FORMAT(/7X,'ENTER THE DUCTBURNER INDICATOR'/ 
fi7X,' 0 - NO DUCTBURNER'/ 
t7X,'-1 - DB PRESENT, NOT LIT'/ 

S7X,' 2 - DUCTBURNER LIT: ',$) 

READ(5,7136,ERR-7580) KT7 

IF((KT7.NB.0).AND.(KT7.NE.-1).AND.(KT7.NE.2)) GOTO 7580 
GOTO 7510 
7590 WRITE(6,7595) 

7595 FORMAT(/7X,'ENTER THE NOZZLE TYPE INDICATOR'/ 
i7X,'0 - CONVERGENT NOZZLE'/ 

&7X,'1 - CONVERGENT-DIVERGENT NOZZLE'/ 

67X,'2 - NOZZLE VELOCITY COEFFICIENT: ',$) 

READ(5,6606,ERR-7590) NOZZ 

IF((NOZZ.LT.O).OR.(NOZZ.GT.2)) GOTO 7590 

GOTO 7510 

7600 WRITE(7,7605) ITYPE, AENDIA, AENLE, AENWT, ATURB, 

&BA, DIAl, FRBT, FRPN, HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 

&SM1, SODG, VCl, WCWAl, YREN, ESF, TWAB, TWOAB, TWTO, EABl, 
iEBl, EDI, ETACl, ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 
6R54N, R711, R711N, SCPR, DELT57, T3, T51, T71, DBLPR, RlOA, 
&MACH1, MACH2, SFBTP, SFINSP, SFIP, SFSFCl, SFSFC2, SFSFC3, 
&(ALTD(I),I-1,6), (XMACH(I),1-1,6), DBPWCC, BN, IPR, KODE, 
fiKT5, KT7, NOZZ, NPUSE, IPLOT, IPRINT, KERROR, MINPR, MODPRT, 
&NAB, NDTAIL, NSUMM, ALTI, AM, POSA, TOSA 
7605 FORMAT('*** PROPULSION DATA ***'/Il/' SLEWIS'/ 

S5X,'AENDIA-',F7.3,',','AENLE-',F7.3,',',IX,'AENWT-',F8.2,','/ 
<120X,'ATURB-',F6.3,',',2X,'BA-',F6.3,','/ lARERTO TAKEN OUT 
S5X,'DIA1-',F6.3,',',3X,'FRBT-',F6.3,',',3X,'FRPN-',F6.3, ' , ' / 

S5X, ' HTR-',F6.3,',',4X,'HVF-',FIO.2,',','PCDFAC-',F6.3,','/ 

&5X,'PWCC-',F7.3,',',2X,'RDIAM-',F6.3,',',2X,'RLENG-',F6.3,','/ 

«5X,'SM1-',F6- 3,',',4X,'SODG-',F6.3,',',3X,'VC1-',F6.3,' , '/ 

S5X, 'WCWA1-',F6.3,',',2X,'YREN-',F5.2,',',4X,'ESF-',F5.2,','/ 
t5X,'TWAB-',F8.1,',',IX,'TWOAB-',F8.1,',','TWTO-',F5.2,','/ 

&5X,'EAB1-',F5.3,',',4X,'EB1-',F5.3,',',5X,'BD1-' , F5.3,','/ 

«5X,'ETAC1-',F5.3,',',3X,'ETAF1-',F5.3,',',3X,'ETAT1-',F5.3,','/ 
i5X,'PRFD-',F6.3,',',3X,'P11P1-',F6.3,',',2X,'P2P1-',F6.3,','/ 
&5X,'R32-',F6.3,',',4X,'R54-',F6.3,',' , 4X,' R54N-',P6.3,','/ 
i5X,'R711-',F6.3,',',3X,'R711N-',F6.3,',',2X,'SCPR-',F6.3,','/ 
45X,'DELT57-',F7.2,',','T3-',F8.2,',',3X,'T51-',F8.2,','/ 

S5X,'T71-',F8.2,',',2X,'DELPR-',F7.2,',',IX,'R10A-',F4.1,','/ 

&5X,'MACH1-',F6.3,',',2X,'MACH2-',F6.3,',',2X,'SFBTP-',F6.3,','/ 
S5X,'SFINSP-',F6.3,',',IX,'SFIP-',F6.3,',',3X,'SFSFC1-',F6.3,','/ 
&5X,'SFSFC2-',F6.3,',',IX,'SFSFC3-',F6.3,','/ 
i5X,'ALTD-',5(F7.1,','),F7.1/5X,'XMACH-',5(F6.3,','),F6.3/ 

&5X,'DEPWCC-',F6.3,',',IX,'EN-',12, ' , ' ,9X, ' IPR-' ,12, ' , ' / 

<15X, ' KODE-' , II, ' , ' , 8X, ' KT5-' , 12, ' , ' , 8X, ' KT7-' , 12, ', ' / 

45X,'NOZZ-',II,',',8X,'NPUSE-',II,',',7X,'IPLOT-',11, ' , ' / 

&5X, ' IPRINT-',11,',',6X,'KERROR-',II,',',6X,'MINPR-',II,','/ 
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«.5X, 'MODPRT-' ,11,' , 6X, 'NAB-' ,11,' ,' , 9X, 'NDTAIL-' ,12,' ,' / 

&5X,'USUM^H',12,','6X,'ALTI-',F3.1,',',6X,'AM-',F3.1,','/ 

45X, ' POSA-' , F5.2,',',4X,'TOSA-',F5.1,','/5X,'$END') 

RETURN 

END 

C- 

C - ENGINE DEFAULTS 

C- 

SUBROUTINE LEWIS(ITYPE, AENDIA, AENLE, AENWT, ARERTO, ATURB, 
&BA, DIAl, FRBT, FRPN, HTR, HVF, PCDFAC, PWCC, RDIAM, RLENG, 
4SM1, SODG, VCl, WCWAl, YREN, ESF, TWAB, TWOAB, TWTO, EABl, 
iEBl, EDI, ETACl, ETAFl, ETATl, PRFD, PllPl, P2P1, R32, R54, 
4R34N, R711, R711N, SCPR, DELT57, T3, T51, T71, DELPR, RlOA, 
fiMACHl, MACH2, SFBTP, SFINSP, SFIP, SFSFCl, SFSFC2, SFSFC3, 
4ALTD, XMACH, DEPWCC, EN, IPR, KODE, KT5, KT7, NOZZ, NPUSE, 
SIPLOT, IPRINT, KERROR, MINPR, MODPRT, NAB, NDTAIL, NSUMM, ALTI, 
&AM, POSA, TOSA) 

C 

INTEGER EN 

REAL MACHl, MACH2 

AENDIA-0.0 

AENLE-0.0 

AENWT-0.0 

ARERTO-1.0 

ATURB-0.242 

BA-0.0 

DIAl-1.365 

FRBT-0.0 

FRPN-0.0 

HTR-0.6 

HVF-18600.0 

PCDFAC-1.0 

PWCC-100.0 

RDIAM-1.15 

RLENG-2.0 

SMl-0.6 

SODG-1.0 

VCl-0.98 

WCWAl-0.0 

yREN-64.0 

ESF-1.0 

TWAB-0,0 

TWOAB-0.0 

TWTO-0.5 

EABl-0.75 

EBl-0.87 

EDl-0,75 

ETACl-0.8 

ETAFl-0.82 

ETATl-0.9 

PRFD-1.0 

PllPl-1.0 

O2P1-7.0 

RJ2-0,95 

R54-0.94 

R54N-0.94 

R711-0.98 

R711N-0.82 

SCPR-1.27 

DELT57-100.0 
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T3-2160.0 
T51-0.0 
T71-0.0 
DELPR-0.0 
RIGA—1.0 
MACHl-1.0 
MACH2-1.1 
SFBTP-O.0 
SriNSP-0.0 

srip-0.0 

SFsrci-i .0 

SFSFC2-1.0 

SFSFC3-1.0 

ALTD-0.0 

DEPWCC-2.0 

XMACH-0.0 

EN»2 

IPR-3 

KODE-0 

KT5—1 

KT7-0 

NOZZ-1 

NPaSE-2 

IPLOT-0 

IPRINT-0 

KERROR-0 

MINPR-1 

MODPRT-4 

NAB-6 

NDTAIL-0 

NSUMM-15 

ALTI-O.0 

AM-0.0 

POSA-29.92 

TOSA-518.0 

IF(ITYPE.EQ.l) THEN ! SET J85 DEFAULTS 

AENDIA-1.365 
AENLE-9.16 
AENWT-608.0 
ATURB-0.242 
BA-0.0 
DIAl-1.365 
EBl-0.87 
ETACl-0.8 
HTR-0,6 
PRFD-1.0 
PllPl-1.0 
P2P1-7.0 
RIGA—1.0 
R32-0.95 
R54N-0.94 
SCPR-1.27 
SMl-0.6 
TWAB-4080.0 
TWOAB-2720.0 
T3-2160.0 
WCWAl-0.0 
YREN-63.0 
AENLE<-9.16 
AENWT-608.0 
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KODE-0 
KT5—1 
NOZZ-1 

ENDXB* 

ir(ITYPE.EQ.2) THEN ! SET TF30 DEFAULTS 

AENDIA-3.8 
AENLE-15.18 
AENWT-3790.0 
ATURB-0.328 
BA-0.73 
DIAl-3.8 
EBl-0.94 
ETACl-0.8 
HTR-0.6 
PRrD-2.43 
PllPl-7.41 
P2P1-21.8 
R54-0.92 
R54N-0.88 
SCPR-I.21 
TWAB-25100.0 
TWOAB-14560.0 
T3-2743.0 
WCWAI-0.018 
•yREN-71.0 
AENLE-15.18 
AENWT-3790.0 
KT5-2 
KT7-2 
NOZZ-l 

ENOIF 

IF(1TYPE.EQ.3) THEN ! SET UT8D DEFAULTS 

AENDIA-3.66 
AENLE-10.31 
AENWT-3218.0 
ATURB-0.411 
BA-1.03 
DIAl-3.655 
EBl-0.94 
ETACl-0.82 
HTR-0.4 
PRFD-1.91 
PllPl-4.2 
P2P1-16.9 
R32-0.95 
R54-0.96 
R54N-0.98 
SCPR-1.2 
TWAB-0.0 
TWOAB-14500.0 
T3-2180.0 
WCWAl-0.0 
yREN-68.0 
AENLE-10.31 
AENWT-3218.0 

END IF 

IF(ITYPE.EQ.4) THEN !SET JT9D DEFAULTS 

AENLE-14.08 
AENWT-8874.0 
ATURB-0.385 
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BA-8.2 
EBl-0.98 
ETACl-0.82 
ETATl-0.92 
HTR-0.3 
PRTD-l.6 
PllPl-1.6 
P2P1-22.9 
RS4K-0.96 
SCPR-1.2 
TWAB-0.0 
TNQAB-50000.0 
T3-2835.0 
WCWAl-0.02 
YREll-70.0 
AENLE-14.08 
AEHHT-8874.0 

EHDIF 

IF(ITYPE.EQ.5) THEN !SET CF6 DEFAULTS 

AENDZA-8.2 
AENLE-14.86 
AENNT-9767.0 
ATURB-0.385 
BA-4.4 
DZAl-8.2 
EBl-0.94 
ETACl-0.82 
ETATl-0.92 
HTR-0.3 
PRFD-1.56 
PllPI-1.72 
P2P1-30.0 
R54N-0.92 
SCPR-1.21 
TWAB-0.0 
THOAB-50280.0 
T3-2800.0 
HCWAl-0.02 
yREN-70.0 
AENLE-14.86 
AENWT-9767.0 

ENDIF 

IF(ITyPE.EQ.6) THEN !SET GENERIC DEFAULTS 

AENDIA-8.2 
AENLE-8.67 
AENWT-1421.0 
ATURB-0.385 
BA-6.23 
DIAl-8,2 
EABl-0.75 
EBl-0.87 
EDl-0.75 
ETACl-0.8 
ETAFl-0.9 
ETATl-0.92 
HTR-0.6 
PRFD-1.51 
PWCC-100.0 
PllPl-1.396 
P2P1-20.1 
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RIGA—1,0 
R32-0.97 
R54-0.98 
R54N-0.98 
R711-0.98 
R711N-.98 
SCPR-1.21 
SMl-0.5 
TWAB-0.0 
TWOAB-9300.0 
T3-2637.0 
T51-3400.0 
T71-3400.0 
VCl-0.98 
WCHAl-0.0 
YREN-70.0 
KODE-2 
KT5-0 
KT7-0 
NOZZ-0 
ENDIF 
RETURN 
END 

SUBROUTINE WEIGHTS (DVFLAG, ATYPE) 

C oooooooooooooooooooooooooooooooo 

C - WEIGHTS 

C <><><><><><><><><><><><><><><><><><x><xx><x><><><><><><><><> 

LOGICAL DVFLAG 

CHARACTER ANS*6, TITLE*80, ATYPE*10 
DIMENSION SLOPE(17) 

REAL KPl, KP2, Kl, K2, K3, K4, K5 

7650 IF(DVFLAG.EQ..FALSE.) THEN 

7660 STATUS - LIBSSPAWN('CLS') 

WRITE(6,7665) 

7665 FORMAT(// 

& 7X,'DO YOU WANT TO MAKE ANY CHANGES TO THE WEIGHTS'/ 

& 7X,'MODULE?'//7X,'(1) YES'/7X,'(2) NO'// 

& 7X,'SELECT 1 OR 2: ',$) 

READ(5,7666,ERR-7660) NUM 

7666 FORMAT(II) 

IF(NUM.EQ.l) GOTO 7750 
IF(NUM,NE.2) GOTO 7660 

C - TRANSFER THE SOPTS AND $FIXW NAMELISTS FROM (10) TO (7) 

REWIND(10) 

7680 READ(10,7681) ANS 

7681 FORMAT(A6) 

IF(ANS.NE.'*** WE') GOTO 7680 

7690 WRITE(7,7695) ATYPE ! AIRCRAFT TYPE ABOVE WEIGHTS TITLE 

7695 FORMAT(AlO) 

WRITE(7,7705) 

7705 FORMAT ('*** WEIGHTS DATA ♦**') 

DO 7730 1-1,22 

READ(10,7708) TITLE 

7708 FORMAT(A80) 

WRITE (7,7708) TITLE 

7730 CONTINUE 
RETURN 
ENDIF 

7750 IF(DVFLAG.EQ..FALSE.) THEN 
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REWIND(10) 

7760 READ(10,7681) ANS 

IF(ANS.NE.'*** WE') GOTO 7760 

READ(10,7770) FR, KFl, KP2, SLOPE(1), SLOPE(2), SLOPE(3), 

& SLOPE(4), SLOPE(5), SLOPE(6), SLOPE(7), SLOPE(8), SLOPE(9), 

& SLOPE(10), SLOPE(11), SLOPE(12), SLOPE(13), SLOPE(14), 

& SLOPE(15), SLOPE(16), SLOPE(17), TECHG, DENS, WGTO, AFMACH, 

& Kl, K2, K3, K4, K5, STRESS, IDELT, lOBLIQ, IPRINT, ITAIL, 

& KBODY, KERROR, KWING, WPL, WAMMUN, WBOMB, WMISS, WETANK 
7770 FORMAT(/8X,F6.3,10X,F6.3,9X,F6.3/14X,F6.3,19X,F6.3/ 

& 14X,F6.3,19X,F6.3/14X,F6.3,19X,F6.3/14X,F6.3,19X,F6.3/ 

& 14X,r6.3,20X,F6.3/15X,F6.3,19X,P6.3/15X,F6.3,19X,F6.3/ 

& 15X,F6.3,19X,F6.3/15X,F6.3/llX,F6.3,8X,F6.3,9X,F8.1/ 

6 12X,F6.3,5X,F6.3,9X,F6.3/8X,F6.3,9X, F6.3,9X,F6.3/ 

& 12X,F8.1,21X,I1/12X,II,14X,II,13X,Il/llX,II,15X,II,13X,II/// 

& 9X, F8.1, lOX, F7.1,7X,F8.1/llX,F8.1,8X,F7.1) 

END IF 

IF(DVFLAG.EQ..TRUE.) THEN ! SET DEFAULTS 

CALL WGHT(FR, KPl, KP2, SLOPE, TECHG, DENS, WGTO, AFMACH, 

& Kl, K2, K3, K4, K5, STRESS, IDELT, lOBLIQ, IPRINT, ITAIL, 

& KBODX, KERROR, KWING, WPL, ATYPE, WAMMUN, WBOMB, WMISS, 

6 WETANK) 

END IF 


- WEIGHTS PAGE 1 


7800 STATUS - LIB$SPAWN('CLS') 

WRITE(6,7805) (SLOPE(I),I-l,9) 

7805 FORMAT(/ 

ftlX,'** WEIGHTS PAGE 1 **'// 

&7X, Ml) WING SLOPE.',F6.3/ 

<17X,M2) fuselage SLOPE.',F6.3/ 

67X,M3) HORIZONTAL TAIL/CANARD SLOPE.',F6.3/ 

i7X,M4) VERTICAL TAIL SLOPE.',F6.3/ 

S7X, MS) NACELLES SLOPE.',F6.3/ 

S7X,M6) landing gear slope.',F6.3/ 

i7X,M7) ENGINES SLOPE.',F6.3/ 

&7X,M8) fuel system slope.',F6.3/ 

<i7X,M9) HYDRAULICS/PNEUMATICS SLOPE.',F6.3// 


S7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,7666,ERR-7800) NUM 
IF(NUM.EQ.O) GOTO 7920 

GOTO (7820, 7830, 7840, 7850, 7860, 7870, 7880, 7890, 7900) ,NUM 
GOTO 7800 
7820 WRITE(6,7825) 

7825 FORMAT(/7X,'ENTER THE WING WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7820) SLOPE(1) 

7826 FORMAT(F6.3) 

IF((SLOPE(l).LT.0.0).OR.(SLOPE(l).GT.3.0)) GOTO 7820 
GOTO 7800 
7830 WRITE(6,7835) 

7835 FORMAT(/7X,'ENTER THE FUSELAGE WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7830) SLOPE(2) 

IF((SLOPE(2).LT.0.0).OR.(SLOPE(2).GT.3.0)) GOTO 7830 
GOTO 7800 
7840 WRITE(6,7845) 

7845 FORMAT(/7X,'ENTER THE HORIZONTAL TAIL/CANARD'/ 
fi7X,'WEIGHT SLOPE: ',$) 

READ(5,7826,ERR-7840) SLOPE(3) 

IF((SLOPE(3).LT.0.0).OR.(SLOPE(3).GT,3.0)) GOTO 7840 
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GOTO 7800 
7850 WRITE(6,7855) 

7855 FORMAT(/7X,'ENTER THE VERTICAL TAIL WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7850) SLOPE(4) 

IF{(SLOPE(4).LT.0.0).OR.(SLOPE(4).GT.3.0)) GOTO 7850 
GOTO 7800 
7860 WRITE(6,7865) 

7865 FORMAT(/7X,'ENTER THE NACELLES WEIGHT SLOPE: ',$} 
READ(5,7826,ERR-7860) SLOPE(5) 

IF({SLOPE(5).LT.0.0).OR.(SLOPE{5).GT.3.0)) GOTO 7860 
GOTO 7800 
7870 WRITE(6,7875) 

7875 FORMAT(/7X,'ENTER THE LANDING GEAR WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7870) SLOPE(6) 

IF((SLOPE(6).LT.0.0).OR.(SLOPE{6).GT.3.0)) GOTO 7870 
GOTO 7800 
7880 WRITE(6,7885) 

7885 FORMAT(/7X,'ENTER THE ENGINES WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7880) SLOPE(7) 

IF((SLOPE(7).LT.0.0).OR.(SLOPE(7).GT.3.0)) GOTO 7880 
GOTO 7800 
7890 WRITE(6,7895) 

7895 FORMAT(/7X,'ENTER THE FUEL SYSTEM WEIGHT SLOPE: ',$) 

READ(5,7826,ERR-7890) SLOPE(8) 

ir((SLOPE(8) .LT.0.0) .OR. (SLOPE(8).GT.3.0)) GOTO 7890 
GOTO 7800 
7900 WRITE(6,7905) 

7905 FORMAT(/7X,'ENTER THE HYDRAULICS/PNEUMATICS WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7900) SLOPE(9) 

IF((SLOPE(9).LT.0.0).OR.(SLOPE(9).GT.3.0)) GOTO 7900 
GOTO 7800 


- WEIGHTS PAGE 2 


7920 STATUS - LIB$SPAWN('CLS') 

WRITE(6,7925) (SLOPE(I),I«10,17), WPL 


7925 FORMAT (/ 

&7X,'** WEIGHTS PAGE 2 **'// 

S7X,'(1) ELECTRICAL SYSTEM SLOPE.',F6.3/ 

&7X,'(2) AVIONICS SLOPE.',F6.3/ 

&7X,'(3) INSTRUMENTATION SLOPE.',F6.3/ 

i7X,'(4) ENVIRONMENTAL SYSTEM SLOPE.',F6.3/ 

&7X,'(5) PASSENGER ACCOMODATIONS SLOPE.',F6.3/ 

S7X,'(6) AUXILIARY POWER UNIT SLOPE.',F6.3/ 

&7X,'(7) FLIGHT CONTROLS SLOPE.',F6.3/ 

i7X,'(8) CREW ACCOMODATIONS SLOPE.',F6.3/ 

&7X,'(9) PAYLOAD WEIGHT (LBS).',F8.1// 


i7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,7666,ERR-7920) NUM 
IF(NUM.EQ.O) GOTO 8030 

GOTO (7940, 7950, 7960, 7970, 7980, 7990, 8000, 8010, 8020) ,NUM 
GOTO 7920 
7940 WRITE(6,7945) 

7945 FORMAT(/7X,'ENTER THE ELECTRICAL SYSTEM WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7940) SLOPE(10) 

IF((SLOPE(10).LT.0.0).OR.(SLOPE(IO).GT.3.0)) GOTO 7940 
GOTO 7920 
7950 WRITE(6,7955) 

7955 FORMAT(/7X,'ENTER THE AVIONICS WEIGHT SLOPE: ',$) 

READ(5,7826,ERR-7950) SLOPE(11) 
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IF((SLOPE(ll).LT.0.0).OR.(SLOPE(ll).GT.3,0)) GOTO 7950 
GOTO 7920 
7960 WRITE(6,7965) 

7965 FORMAT(/7X,'ENTER THE INSTRUMENTATION WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7960) SLOPE(12) 

IF<(SLOPE(12).LT.0.0).OR.(SLOPE(12).GT.3.0)) GOTO 7960 
GOTO 7920 
7970 WRITE(6,7975) 

7975 FORMAT(/7X,'ENTER THE ENVIRONMENTAL SYSTEM WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7970) SLOPE(13) 

IF((SLOPE(13).LT.0.0).OR.(SLOPE(13).GT.3.0)) GOTO 7970 
GOTO 7920 
7980 WRITE(6,7985) 

7985 FORMAT(/7X,'ENTER THE PASSENGER ACCOMODATIONS'/ 

67X,'WEIGHT SLOPE: ',$) 

READ(5,7826,ERR-7980) SLOPE(14) 

IF((SLOPE(14).LT.0.0).OR.(SLOPE(14).GT.3.0)) GOTO 7980 
GOTO 7920 
7990 WRITE(6,7995) 

7995 FORMAT(/7X,'ENTER THE AUXILIARY POWER UNIT WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-7990) SLOPE(15) 

IF((SLOPE(15).LT.0.0).OR.(SLOPE(15).GT.3.0)) GOTO 7990 
GOTO 7920 
8000 WRITE(6,8005) 

8005 FORMAT(/7X,'ENTER THE FLIGHT CONTROLS WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-8000) SLOPE(16) 

IF((SLOPE(16).LT.0.0).OR.(SLOPE(16).GT.3.0)) GOTO 8000 
GOTO 7920 
8010 WRITE(6,8015) 

8015 FORMAT(/7X,'ENTER THE CREW ACCOMODATIONS WEIGHT SLOPE: ',$) 
READ(5,7826,ERR-8010) SLOPE(17) 

lF((SLOPE(17).LT.0.0).OR.{SLOPE(17).GT.3.0)) GOTO 8010 
GOTO 7920 
8020 WRITE(C,8025) 

8025 FORMAT(/7X,'ENTER THE TOTAL PAYLOAD WEIGHT (LBS). (THIS'/ 

&7X,'SHOULD INCLUDE ALL AMMUNITION, ARMAMENT, MISSILES,'/ 

<i7X,'BOMBS, PASSENGERS ETC...): ',$) 

READ(5,8026,ERR-8020) WPL 

8026 FORMAT(F8.1) 

IF(WPL.LT.0.0) GOTO 8020 
GOTO 7920 


- WEIGHTS PAGE 3 


8030 STATUS - LIB$SPAWN('CLS') 

WRITE(6,8035) KPl, KP2, AFMACH, DENS, STRESS, IDELT, lOBLIQ, 


&ITAIL, KBODY, KWING, WGTO 
8035 FORMAT(/ 

&7X,'** WEIGHTS PAGE 3 **'// 

«7X,'(1) WING PIVOT FACTOR. ',F6.3/ 

S7X, ' (2) EXTERNAL TANK FACTOR. ',F6.3/ 

S7X,'(3) MAXIMUM MACH NUMBER. .. .. ',F6.3/ 

67X,' (TRANSPORTS/BOMBERS ONLY)'/ 

47X,'(4) OBLIQUE WING MATERIAL DENSITY (LBS/IN3). ',F6.3/ 

S7X,'(5) OBLIQUE WING ALLOWABLE STRESS (PSD. ',F8.1/ 

&7X, ' (6) WING WEIGHT EQUATION.' , 11/ 

S7X,' (0 - STANDARD WING, 1 - DELTA WING)'/ 

S7X,'(7) OBLIQUE WING fWIIGHT EQUATION .',11/ 

67X, ' (0 - STANDARD WING, 1 = OBLIQUE WING)'/ 

&7X,'(8) TAIL INDICATOR .',11/ 
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&7X,' (0 - STANDARD TAIL, 1 - HIGH/T-TAIL)'/ 

fi7X,'(9) BODY EQUATION (TRANSPORTS/BOMBERS).',11/ 

&7X,' (1 - SANDERS, 2 - AIR FORCE)'/ 

S7X,'(10) WING WEIGHT TECHNIQUE (TRANSPORTS/BOMBERS)11/ 
&7X,' (1 - SANDERS, 2 - AIR FORCE, 3 “ LANGLY)'/ 

S7X,'(11) ESTIMATE OF TAKEOOFF GROSS WEIGHT.',F8.1// 

i7X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE: ',$) 
READ(5,8036,ERR-8030) NUM 
8036 FORMAT(12) 

IF(NUM.EQ.O) GOTO 8160 

GOTO (8050, 8060, 8070, 8080, 8090, 8100, 8110, 8120, 8130, 
&8140, 8150) ,NUM 
GOTO 8030 
8050 WRITE(6,8055) 

8055 FORMAT(/7X,'ENTER THE WING PIVOT FACTOR (1.0 - STANDARD'/ 
fi7X,'WING PIVOT WEIGHT): ',$) 

READ(5,7826,ERR-8050) KPl 

IF((KP1.LT.0.0) .OR. (!a>l.GT.3.0)) GOTO 8050 
GOTO 8030 
8060 WRITE(6,8065) 

8065 FORMAT(/7X,'ENTER THE EXTERNAL FUEL TANK FACTOR'/ 
fi7X,'(1.0 - STANDARD METAL TANKS): ',$) 

READ(5,7826,ERR-8060) KP2 

1F((KP2.lt.0.0).OR.(KP2.GT.3.0)) GOTO 8060 
GOTO 8030 
8070 WRITE(6,8075) 

8075 FORMAT(/7X,'ENTER THE MAXIMUM ALLOWABLE MACH NUMBER (FOR'/ 
&7X,'TRANSPORTS AND BOMBERS ONLY): ',$) 

READ(5,7826,ERR-8070) AFMACH 

IF((AFMACH.lt.0.0).OR.(AFMACH.GT.3.0)) GOTO 8070 
GOTO 8030 
8080 WRITE(6,8085) 

8085 FORMAT(/7X,'ENTER THE MATERIAL DENSITY OF THE OBLIQUE WING'/ 
473t,' (LBS/1N3) : ',$) 

REAO(5,7826,ERR<-8080) DENS 

IF((DENS.LT.0.0).OR.(DENS.GT.1.0)) GOTO 8080 
GOTO 8030 
8090 WRITE(6,8095) 

8095 FORMAT(/7X,'ENTER THE ALLOWABLE STRESS IN THE OBLIQUE WING: ' 
READ(5,8026,ERR-8090) STRESS 

IF((STRESS.LT.5000.0).OR.(STRESS.GT.100000.0)) GOTO 8090 
GOTO 8030 
8100 WRITE(6,8105) 

8105 FORMAT(/7X,'ENTER THE WING EQUATION TO USE.'/ 

S7X,'(0 - STANDARD WING, 1 - DELTA WING): ',$) 

READ(5,7666,ERR-8100) IDELT 
IF((IDELT.NE.O).AND.(IDELT.NE.l)) GOTO 8100 
GOTO 8030 
8110 WRITE(6,8115) 

8115 FORMAT(/7X,'ENTER THE OBLIQUE WING EQUATION TO USE.'/ 

47X,'(0 - STANDARD WING, 1 - OBLIQUE WING): ',$) 
READ(5,7666,ERR-8110) lOBLIQ 

IF((lOBLIQ.NE.O).AND.(lOBLIQ.NE.l)) GOTO 8110 
GOTO 8030 
8120 WRITE(6,8125) 

8125 FORMAT(/7X,'ENTER THE TAIL TYPE TO USE.'/ 

S7X,'(0 - STANDARD TAIL, 1 - HIGH TAIL OR T-TAIL): ',$) 
READ(5,7666,ERR-8120) ITAIL 
IF((ITAIL.NE.O).AND.(ITAIL.NE.l)) GOTO 8120 
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GOTO 8030 
8130 WRITE(6,8135) 

8135 FORMAT(/7X,'ENTER THE BODY EQUATION TO USE.'/ 
fi7X,'(1 - SANDERS, 2 - AIRFORCE); ',$) 
REAO(5,7666,ERR-8130) KBODY 
IF((KBODY.NE.l).AND.(KBODy.NE.2)) GOTO 8130 
GOTO 8030 
8140 WRITE<6,8145) 

8145 FORMAT(/7X,'ENTER THE WING EQUATION TECHNIQUE TO USE.'/ 
fi7X, ' (1 - SANDERS, 2 - AIR FORCE, 3 - LANGLY) : ',$) 
RBAD(5,7666,ERR*8100) KWING 
IF((KWING.lt.1).OR.(KWING.GT.3)) GOTO 8140 
GOTO 8030 
8150 WRITE(6,8155) 

8155 FORMAT(/7X,'ENTER AN ESTIMATE FOR THE TAKEOFF GROSS'/ 
fi7X,' WEIGHT (LBS): ',$) 

READ(5,8026,ERR-8150) W6T0 
IF(WGTO.LE,0.0) GOTO 8150 
GOTO 8030 

C- 

C - WEIGHTS PAGE 4 

8160 STATUS - L1B$SPAWN('CLS') 

WRITE(6,8161) WAMMUN, WBQMB, WMISS, WETANK 

8161 FORMAT(/7X,'** WEIGHTS PAGE 4 •*'// 

S7X,'(1) WEIGHT OF THE AMMUNITION (LBS)...',F7.1/ 


«7X,'(2) WEIGHT OF THE BC»1BS. ',F8.1/ 

fi7X,'(3) WEIGHT OF THE MISSILES. ',F8.1/ 

i7X,' (4) WEIGHT OF THE EXTERNAL TANKS. ',F7.1// 


47X,'SELECT A VALUE TO CHANGE OR 0 TO CONTINUE; ',$) 
READ(5,7666,ERR«8160) NUM 
IF(NDM.EQ.O) GOTO 8300 
GOTO (8170, 8180, 8190, 8200) ,NUM 
GOTO 8160 

8170 WRITE(6,8175) 

8175 FORMAT(/7X,'ENTER THE WEIGHT OF THE AMMUNITION: ',$) 
READ(5,8176,ERR-8170) WAMMUN 

8176 FORMAT(F7.1) 

IF(WAMMUN.lt.0.0) GOTO 8170 
GOTO 8160 

8180 WRITE(6,8185) 

8185 FORMAT(/7X,'ENTER THE WEIGHT OF THE BOMBS: ',$) 
READ(5,8026,ERR-8180) WBCX4B 
IF(WB<»ffi.LT.0.0) GOTO 8180 
GOTO 8160 

8190 WRITE(6,8195) 

8195 FORMAT(/7X,'ENTER THE WEIGHT OF THE MISSILES: ',$) 

READ(5,8026,ERR-8190) WMISS 
IF(WMISS.lt.0.0) GOTO 8190 
GOTO 8160 

8200 WRITE(6,8205) 

8205 FORMAT(/7X,'ENTER THE WEIGHT OF THE EXTERNAL TANKS: ',$) 
READ(5,8176,ERR-8200) WETANK 
IF(WETANK LT.0.0) GOTO 8200 
GOTO 8160 

8300 WRITE(7,8365) ATYPE, FR, KPl, KP2, SLOPE(1), SLOPE(2), SLOPE(3), 
SSLOPE(4), SLOPE (5), SLOPE (6), SLOPE (7), SLOPE (8),. SLOPE (9), 
SSLOPE(IO), SLOPE(11), SLOPE(12), SLOPE(13), SLOPE(14), 
<iSLOPE(15), SLOPE (16), SLOPE (17), TECHG, DENS, WGTO, AFMACH, 

&K1, K2, K3, K4, K5, STRESS, IDELT, lOBLIQ, IPRINT, ITAIL, 
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iKBODY, KERROR, KWING, WPL, WAMOTN, WBOMB, WMISS, WETANK 
8365 FORMAT(AlO/'*** WEIGHTS DATA ***•/• SOFTS'/ 

S5X,'FR-',F6.3,',',5X,'KP1-',F6.3,',',4X,'KP2-',F6.3,','/ 

S5X,'SLOPE(1),F6.3,',',9X,'SLOPE(2),F6.3,','/ 

&5X,'SLOPE(3)-',F6.3,',',9X,'SLOPE(4),F6.3, ' , ' / 

&5X,'SLOPE(5),F6.3,',',9X,'SLOPE(6),F6.3,','/ 

S5X,'SL0PE(7)-',F6.3,',',9X,'SLOPE(8)-',F6.3,','/ 

65X,'SLOPE(9),F6.3,',',9X,'SLOPE(10),F6.3,','/ 

S5X,'SLOPE(11),F6.3,',',8X,'SLOPE(12),F6.3,','/ 
i5X,'SLOPE(13),F6.3,',',8X,'SLOPE(14),F6.3,','/ 
i5X,'SLOPE(15),F6.3,',',8X,'SLOPE(16), F6.3, ' , ' / 
fi5X,'SLOPE(17), F6.3, ' , ' / 

45X,'TECHG-',F6.3,',',2X,'DENS-',F6.3,',',3X,'WGTO-',F8.1,','/ 
45X,'AFMACH-',F6.3,',',IX,'K1-'.F6.3,',',5X,'K2-',F6.3,','/ 
t5X,'K3-',F6.3,',',5X,'K4-',F6.3,',',5X,'K5-' ,F6.3,',' / 
t5X,'STRESS-',F8.1,',',14X,'IDELT-' , II, ' , ' / 

S5X,'IOBLIQ-',II,',',6X,'IPRINT-',II,',',6X,'ITAIL-',II,','/ 
S5X,'KBODY-',II,',',7X,'KERROR-',II,', ' ,6X, ' KWING-' , 11, ' , ' / 
&5X,'SEND'/' SFIXW'/ 

i5X,'WPL-',F8.1,','2X,'WAMMUN-',F7.1,',','WBOMB-',F8.1,','/ 
fi5X,'WMISS-',F8.1,',','WETANK-',F7.1,','/ 

S5X,'SEND') 

RETURN 

END 


- WEIGHTS DEFAULTS 


SUBROUTINE WGHT(FR, KPl, KP2, SLOPE, TECHG, DENS, WGTO, AFMACH, 
SiKl, K2, K3, K4, K5, STRESS, IDELT, lOBLIQ, IPRINT, ITAIL, 
&KBODY, KERROR, KWING, WPL,ATYPE,WAMMUN, WBOMB, WMISS, WETANK) 
DIMENSION SLOPE(17) 

REAL KPl, KP2, Kl, K2, K3, K4, K5 
CHARACTER ATYPE*10 
IF(ATYPE.EQ.'FIGHTER ') fR-1.5 
IF(ATYPE.EQ.'BOMBER ') FR-l.0 
IF(ATYPE.EQ.'TRANSPORT ') FR-1.0 
KPl-1.0 
KP2-1.0 
DO 10 1-1,17 
SLOPE(I)-1.0 
10 CONTINUE 
TECHG-1.0 
DENS-0.056 

IF(ATYPE.EQ.'FIGHTER ') WGTO-20000 

IF(ATYPE.EQ.'BOMBER ') WGTO-50000 

IF(ATYPE.EQ.'TRANSPORT ') WGTO-100000 

AFMACH-0.85 

Kl-1.0 

K2-1.0 

K3-1.0 

K4-1.0 

K5-1.0 

STRESS-30000.0 

IDBLT-0 

IOBLIQ-0 

IPRINT-1 

ITAIL-0 

KBODY-1 

KERROR-0 

KWlNG-1 
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